2002-07-20 Han-Wen <hanwen@cs.uu.nl>

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

diff --git a/libguile/simpos.c b/libguile/simpos.c
index 882088b..f326900 100644 (file)
--- a/libguile/simpos.c
+++ b/libguile/simpos.c
@@ -39,8 +39,6 @@
  * whether to permit this exception to apply to your modifications.
  * If you do not wish that, delete this exception notice.  */
 
-/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999,
-   gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
 
 \f
 
@@ -88,7 +86,6 @@ SCM_DEFINE (scm_system, "system", 0, 1, 0,
   SCM_VALIDATE_STRING (1, cmd);
   SCM_DEFER_INTS;
   errno = 0;
-  SCM_STRING_COERCE_0TERMINATION_X (cmd);
   rv = system (SCM_STRING_CHARS (cmd));
   if (rv == -1 || (rv == 127 && errno != 0))
     SCM_SYSERROR;
@@ -108,7 +105,6 @@ SCM_DEFINE (scm_getenv, "getenv", 1, 0, 0,
 {
   char *val;
   SCM_VALIDATE_STRING (1, nam);
-  SCM_STRING_COERCE_0TERMINATION_X (nam);
   val = getenv (SCM_STRING_CHARS (nam));
   return val ? scm_mem2string (val, strlen (val)) : SCM_BOOL_F;
 }
@@ -125,7 +121,7 @@ SCM_DEFINE (scm_primitive_exit, "primitive-exit", 0, 1, 0,
   int cstatus = 0;
   if (!SCM_UNBNDP (status))
     {
-      SCM_VALIDATE_INUM (1,status);
+      SCM_VALIDATE_INUM (1, status);
       cstatus = SCM_INUM (status);
     }
   exit (cstatus);
@@ -136,9 +132,7 @@ SCM_DEFINE (scm_primitive_exit, "primitive-exit", 0, 1, 0,
 void
 scm_init_simpos ()
 {
-#ifndef SCM_MAGIC_SNARFER
 #include "libguile/simpos.x"
-#endif
 }