diff options
Diffstat (limited to 'libguile/objcodes.c')
-rw-r--r-- | libguile/objcodes.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/objcodes.c b/libguile/objcodes.c index de3a308e5..1b896df42 100644 --- a/libguile/objcodes.c +++ b/libguile/objcodes.c @@ -145,7 +145,7 @@ SCM_DEFINE (scm_objcode_p, "objcode?", 1, 0, 0, "") #define FUNC_NAME s_scm_objcode_p { - return SCM_BOOL (SCM_OBJCODE_P (obj)); + return scm_from_bool (SCM_OBJCODE_P (obj)); } #undef FUNC_NAME |