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))) x)))
(primitive-set! 'bwp-object?
(lambda (x)
(bwp-object? x)))
(primitive-set! 'weak-cons (primitive-set! 'weak-cons
(lambda (a d) (lambda (a d)

12
src/ikarus.predicates.ss
View File

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