diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-11-28 15:11:31 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-11-28 15:11:31 +0100 |
commit | 5c8cefe591d465af8d8eee9ca6edb98143107a73 (patch) | |
tree | e29bf20aa3ed79f64325ef39197468152f062318 /libguile/programs.c | |
parent | 49bb5bd30714af627ae78b0897ab05ba566e7c00 (diff) | |
download | guile-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.c | 6 |
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 |