* moved (ikarus fixnums) to its own file ikarus.fixnums.ss

src/ikarus.fixnums.ss

@@ -0,0 +1,27 @@
+
+(library (ikarus fixnums)
+  (export fxzero? fxadd1 fxsub1)
+  (import 
+    (only (scheme) $fxadd1 $fxsub1)
+    (except (ikarus) fxzero? fxadd1 fxsub1))
+
+  (define fxzero?
+    (lambda (x)
+      (cond
+        [(eq? x 0) #t]
+        [(fixnum? x) #f]
+        [else (error 'fxzero? "~s is not a fixnum" x)])))
+  
+  (define fxadd1
+    (lambda (n)
+      (if (fixnum? n)
+          ($fxadd1 n)
+          (error 'fxadd1 "~s is not a fixnum" n))))
+  
+  (define fxsub1 
+    (lambda (n) 
+      (if (fixnum? n)
+          ($fxsub1 n)
+          (error 'fxsub1 "~s is not a fixnum" n))))
+
+  )

src/ikarus.numerics.ss

@@ -2,32 +2,6 @@
 
 
 
-(library (ikarus fixnums)
-  (export fxzero? fxadd1 fxsub1)
-  (import 
-    (only (scheme) $fxadd1 $fxsub1)
-    (except (ikarus) fxzero? fxadd1 fxsub1))
-
-  (define fxzero?
-    (lambda (x)
-      (cond
-        [(eq? x 0) #t]
-        [(fixnum? x) #f]
-        [else (error 'fxzero? "~s is not a fixnum" x)])))
-  
-  (define fxadd1
-    (lambda (n)
-      (if (fixnum? n)
-          ($fxadd1 n)
-          (error 'fxadd1 "~s is not a fixnum" n))))
-  
-  (define fxsub1 
-    (lambda (n) 
-      (if (fixnum? n)
-          ($fxsub1 n)
-          (error 'fxsub1 "~s is not a fixnum" n))))
-
-  )
 
 
 (library (ikarus flonums)

src/makefile.ss

@@ -24,6 +24,7 @@
     '("ikarus.handlers.ss"
       "ikarus.multiple-values.ss"
       "ikarus.predicates.ss"
+      "ikarus.fixnums.ss"
       "ikarus.control.ss"
       "ikarus.collect.ss"
       "ikarus.records.ss"