diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
| commit | d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b (patch) | |
| tree | df14a633c6d8ac08ba098651a9164a0c991d8288 /libguile/simpos.c | |
| parent | a61f4e0c61695e17984b25b16fbf720b851b739c (diff) | |
*** empty log message ***
Diffstat (limited to 'libguile/simpos.c')
| -rw-r--r-- | libguile/simpos.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c index d0a5a28f1..e7e9d9c2c 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -114,10 +114,10 @@ SCM_DEFINE (scm_system_star, "system*", 0, 0, 1, "Example: (system* \"echo\" \"foo\" \"bar\")") #define FUNC_NAME s_scm_system_star { - if (SCM_NULLP (args)) + if (scm_is_null (args)) SCM_WRONG_NUM_ARGS (); - if (SCM_CONSP (args)) + if (scm_is_pair (args)) { SCM oldint; SCM oldquit; |