* moved eof-object to ikarus.singular-objects

src/ikarus.core.ss

@@ -11,8 +11,6 @@
     (primitive-set! x v)
     (set-top-level-value! x v)))
 
-(primitive-set! 'eof-object
-  (lambda () (eof-object)))
 
 (primitive-set! 'pointer-value
   (lambda (x)

src/ikarus.singular-objects.ss

@@ -1,7 +1,11 @@
 
 (library (ikarus singular-objects)
-  (export base-rtd)
+  (export base-rtd eof-object)
   (import 
-    (rename (ikarus) (base-rtd sys:base-rtd)))
+    (rename (ikarus)
+      (eof-object sys:eof-object)
+      (base-rtd sys:base-rtd)))
+
+  (define (eof-object) (sys:eof-object))
   (define (base-rtd) (sys:base-rtd)))