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

* moved bwp-object? to ikarus.predicates

This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 06:15:25 -04:00
parent 3f5556cd28
commit 24ce3f42ca
3 changed files with 7 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

@ -210,9 +210,6 @@
x)))
(primitive-set! 'bwp-object?
(lambda (x)
(bwp-object? x)))
(primitive-set! 'weak-cons
(lambda (a d)

12
src/ikarus.predicates.ss
View File

@ -2,25 +2,26 @@
(library (ikarus predicates)
(export fixnum? flonum? bignum? number? complex? real? rational?
integer? exact? eof-object? immediate? boolean? char?
vector? string? procedure? null? pair? symbol? not
integer? exact? eof-object? bwp-object? immediate? boolean?
char? vector? string? procedure? null? pair? symbol? not
eq? eqv? equal?)
(import
(except (ikarus) fixnum? flonum? bignum? number? complex? real?
rational? integer? exact? eof-object? immediate?
rational? integer? exact? eof-object? bwp-object? immediate?
boolean? char? vector? string? procedure? null?
pair? symbol? not eq? eqv? equal?)
(only (scheme) $fxadd1 $vector-ref $fx= $char= $string-ref
$string-length $vector-length $car $cdr)
(rename (only (ikarus) fixnum? flonum? bignum? eof-object?
immediate? boolean? char? vector? string? procedure?
null? pair? symbol? eq?)
bwp-object? immediate? boolean? char? vector? string?
procedure? null? pair? symbol? eq?)
(fixnum? sys:fixnum?)
(flonum? sys:flonum?)
(bignum? sys:bignum?)
(eof-object? sys:eof-object?)
(bwp-object? sys:bwp-object?)
(immediate? sys:immediate?)
(boolean? sys:boolean?)
(char? sys:char?)
@ -79,6 +80,7 @@
(error 'exact? "~s is not a number" x)])))
(define eof-object? (lambda (x) (sys:eof-object? x)))
(define bwp-object? (lambda (x) (sys:bwp-object? x)))
(define immediate? (lambda (x) (sys:immediate? x)))
(define boolean? (lambda (x) (sys:boolean? x)))
(define char? (lambda (x) (sys:char? x)))