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 30b95eb..f326900 100644 (file)
--- a/libguile/simpos.c
+++ b/libguile/simpos.c
@@ -121,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);
@@ -132,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
 }