From 5c8cefe591d465af8d8eee9ca6edb98143107a73 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 28 Nov 2009 15:11:31 +0100 Subject: Remove remaining uses of discouraged constructs. * libguile/frames.c, libguile/instructions.c, libguile/objcodes.c, libguile/programs.c, libguile/throw.c, libguile/vm-i-scheme.c, libguile/vm.c: Replace uses of discouraged constructs by their current counterparts. --- libguile/objcodes.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/objcodes.c') 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 -- cgit v1.2.3