diff options
Diffstat (limited to 'libguile/programs.c')
-rw-r--r-- | libguile/programs.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/programs.c b/libguile/programs.c index dfa6196d4..666b94fbf 100644 --- a/libguile/programs.c +++ b/libguile/programs.c @@ -131,7 +131,7 @@ program_print (SCM program, SCM port, scm_print_state *pstate) { static int print_error = 0; - if (SCM_FALSEP (write_program)) + if (SCM_FALSEP (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")); |