* ioext.c (scm_do_read_line): Rewritten to use memchr to find the

[bpt/guile.git] / libguile / simpos.c

diff --git a/libguile/simpos.c b/libguile/simpos.c
index b252e8a..acb8a7b 100644 (file)
--- a/libguile/simpos.c
+++ b/libguile/simpos.c
@@ -105,6 +105,7 @@ scm_getenv(nam)
   return (val) ? scm_makfromstr(val, (scm_sizet)strlen(val), 0) : SCM_BOOL_F;
 }
 
+/* simple exit, without unwinding the scheme stack or flushing ports.  */
 SCM_PROC (s_primitive_exit, "primitive-exit", 0, 1, 0, scm_primitive_exit);
 SCM
 scm_primitive_exit (SCM status)