conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* moved eof-object to ikarus.singular-objects

This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 23:00:39 -04:00
parent c0bf35338d
commit b3f5d5780a
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

2
src/ikarus.core.ss
View File

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

8
src/ikarus.singular-objects.ss
View File

@ -1,7 +1,11 @@
(library (ikarus singular-objects) (library (ikarus singular-objects)
(export base-rtd) (export base-rtd eof-object)
(import (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))) (define (base-rtd) (sys:base-rtd)))