summaryrefslogtreecommitdiff
path: root/libguile/init.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/init.c')
-rw-r--r--libguile/init.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/init.c b/libguile/init.c
index f808c00cb..89f47ea9a 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -256,7 +256,7 @@ scm_standard_stream_to_port (int fdes, char *mode, char *name)
body_data.name = name;
port = scm_internal_catch (SCM_BOOL_T, stream_body, &body_data,
stream_handler, NULL);
- if (SCM_FALSEP (port))
+ if (scm_is_false (port))
port = scm_void_port (mode);
return port;
}
@@ -316,7 +316,7 @@ scm_load_startup_files ()
scm_primitive_load_path (scm_makfrom0str ("ice-9/boot-9.scm"));
/* Load the init.scm file. */
- if (SCM_NFALSEP (init_path))
+ if (scm_is_true (init_path))
scm_primitive_load (init_path);
}
}