From 80b5909ca8feae3bebfed8b44af906c2a7f0fa16 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 2 Sep 2008 09:33:25 -0700 Subject: [PATCH] allow boot-9.go load if available * libguile/init.c (scm_load_startup_files): Don't specify the .scm suffix, so as to allow loading a boot-9.go if appropriate. --- libguile/init.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/init.c b/libguile/init.c index cdd756894..dc4fbc73e 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -282,7 +282,7 @@ scm_load_startup_files () /* Load Ice-9. */ if (!scm_ice_9_already_loaded) { - scm_primitive_load_path (scm_from_locale_string ("ice-9/boot-9.scm")); + scm_primitive_load_path (scm_from_locale_string ("ice-9/boot-9")); /* Load the init.scm file. */ if (scm_is_true (init_path))