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

* moved eqv? to ikarus.predicates

This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 05:10:38 -04:00
parent bd8b9db6cc
commit 01a161d409
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.

6
src/ikarus.core.ss
View File

@ -103,12 +103,6 @@
(error 'char-downcase "~s is not a character" c)])))
(primitive-set! 'eqv?
(lambda (x y)
(or (eq? x y)
(and (number? x) (number? y) (= x y)))))
(primitive-set! 'set-car!
(lambda (x y)
(unless (pair? x)

9
src/ikarus.predicates.ss
View File

@ -3,14 +3,15 @@
(export fixnum? flonum? bignum? number? complex? real? rational?
integer? exact? eof-object? immediate? boolean? char?
vector? string? procedure? null? pair? symbol? not eq?)
vector? string? procedure? null? pair? symbol? not
eq? eqv?)
(import
(except (ikarus) fixnum? flonum? bignum? number? complex? real?
rational? integer? exact? eof-object? immediate?
boolean? char? vector? string? procedure? null?
pair? symbol? not eq?)
pair? symbol? not eq? eqv?)
(rename (only (ikarus) fixnum? flonum? bignum? eof-object?
immediate? boolean? char? vector? string? procedure?
@ -91,4 +92,8 @@
(define eq? (lambda (x y) (sys:eq? x y)))
(define eqv?
(lambda (x y)
(or (sys:eq? x y)
(and (number? x) (number? y) (= x y)))))
)