diff --git a/src/ikarus.boot b/src/ikarus.boot index a7da9e3..7ed8046 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/ikarus.core.ss b/src/ikarus.core.ss index e7111d2..53f719b 100644 --- a/src/ikarus.core.ss +++ b/src/ikarus.core.ss @@ -14,8 +14,6 @@ (primitive-set! 'eof-object (lambda () (eof-object))) -(primitive-set! 'void - (lambda () (void))) (primitive-set! 'apply (let () diff --git a/src/ikarus.void.ss b/src/ikarus.void.ss new file mode 100644 index 0000000..d111133 --- /dev/null +++ b/src/ikarus.void.ss @@ -0,0 +1,6 @@ + +(library (ikarus void) + (export void) + (import (rename (ikarus) (void sys:void))) + (define (void) (sys:void))) + diff --git a/src/makefile.ss b/src/makefile.ss index ad731af..183a666 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -25,6 +25,7 @@ "ikarus.multiple-values.ss" "ikarus.control.ss" "ikarus.collect.ss" + "ikarus.void.ss" "ikarus.predicates.ss" "ikarus.pairs.ss" "ikarus.lists.ss"