diff options
Diffstat (limited to 'libguile/simpos.c')
-rw-r--r-- | libguile/simpos.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c index 356d78673..ee17fbd3e 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -68,7 +68,7 @@ SCM_DEFINE (scm_system, "system", 0, 1, 0, if (SCM_UNBNDP (cmd)) { rv = system (NULL); - return SCM_BOOL(rv); + return scm_from_bool(rv); } SCM_VALIDATE_STRING (1, cmd); errno = 0; |