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

* moved eof-object? to the predicates library.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 03:27:53 -04:00
parent 2931c3e769
commit 0eaf9be5a7
3 changed files with 13 additions and 8 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.

3
src/ikarus.core.ss
View File

@ -11,9 +11,6 @@
(primitive-set! 'void (primitive-set! 'void
(lambda () (void))) (lambda () (void)))
(primitive-set! 'eof-object?
(lambda (x) (eof-object? x)))
(primitive-set! 'fxadd1 (primitive-set! 'fxadd1
(lambda (n) (lambda (n)

18
src/ikarus.predicates.ss
View File

@ -1,14 +1,16 @@
(library (ikarus predicates) (library (ikarus predicates)
(export fixnum? flonum? bignum? number? complex? real? rational? (export fixnum? flonum? bignum? number? complex? real? rational?
integer? exact?) integer? exact? eof-object?)
(import (import
(except (ikarus) fixnum? flonum? bignum? number? complex? real? (except (ikarus) fixnum? flonum? bignum? number? complex? real?
rational? integer? exact?) rational? integer? exact? eof-object?)
(rename (only (ikarus) fixnum? flonum? bignum?) (rename (only (ikarus) fixnum? flonum? bignum? eof-object?)
(fixnum? sys:fixnum?) (fixnum? sys:fixnum?)
(flonum? sys:flonum?) (flonum? sys:flonum?)
(bignum? sys:bignum?))) (bignum? sys:bignum?)
(eof-object? sys:eof-object?)
))
(define fixnum? (define fixnum?
(lambda (x) (sys:fixnum? x))) (lambda (x) (sys:fixnum? x)))
@ -54,4 +56,10 @@
[(sys:bignum? x) #t] [(sys:bignum? x) #t]
[(sys:flonum? x) #f] [(sys:flonum? x) #f]
[else [else
(error 'exact? "~s is not a number" x)])))) (error 'exact? "~s is not a number" x)])))
(define eof-object?
(lambda (x)
(sys:eof-object? x)))
)