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)]))) (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! (primitive-set! 'set-car!
(lambda (x y) (lambda (x y)
(unless (pair? x) (unless (pair? x)

9
src/ikarus.predicates.ss
View File

@ -3,14 +3,15 @@
(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? immediate? boolean? char?
vector? string? procedure? null? pair? symbol? not eq?) vector? string? procedure? null? pair? symbol? not
eq? eqv?)
(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? immediate?
boolean? char? vector? string? procedure? null? boolean? char? vector? string? procedure? null?
pair? symbol? not eq?) pair? symbol? not eq? eqv?)
(rename (only (ikarus) fixnum? flonum? bignum? eof-object? (rename (only (ikarus) fixnum? flonum? bignum? eof-object?
immediate? boolean? char? vector? string? procedure? immediate? boolean? char? vector? string? procedure?
@ -91,4 +92,8 @@
(define eq? (lambda (x y) (sys:eq? x y))) (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)))))
) )