summaryrefslogtreecommitdiff
path: root/libguile/programs.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-11-28 15:11:31 +0100
committerLudovic Courtès <ludo@gnu.org>2009-11-28 15:11:31 +0100
commit5c8cefe591d465af8d8eee9ca6edb98143107a73 (patch)
treee29bf20aa3ed79f64325ef39197468152f062318 /libguile/programs.c
parent49bb5bd30714af627ae78b0897ab05ba566e7c00 (diff)
downloadguile-5c8cefe591d465af8d8eee9ca6edb98143107a73.tar.gz
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.
Diffstat (limited to 'libguile/programs.c')
-rw-r--r--libguile/programs.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/programs.c b/libguile/programs.c
index 646443af6..7736ea5e6 100644
--- a/libguile/programs.c
+++ b/libguile/programs.c
@@ -58,12 +58,12 @@ scm_i_program_print (SCM program, SCM port, scm_print_state *pstate)
{
static int print_error = 0;
- if (SCM_FALSEP (write_program) && scm_module_system_booted_p)
+ if (scm_is_false (write_program) && scm_module_system_booted_p)
write_program = scm_module_local_variable
(scm_c_resolve_module ("system vm program"),
scm_from_locale_symbol ("write-program"));
- if (SCM_FALSEP (write_program) || print_error)
+ if (scm_is_false (write_program) || print_error)
{
scm_puts ("#<program ", port);
scm_uintprint (SCM_CELL_WORD_1 (program), 16, port);
@@ -87,7 +87,7 @@ SCM_DEFINE (scm_program_p, "program?", 1, 0, 0,
"")
#define FUNC_NAME s_scm_program_p
{
- return SCM_BOOL (SCM_PROGRAM_P (obj));
+ return scm_from_bool (SCM_PROGRAM_P (obj));
}
#undef FUNC_NAME