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

* moved eq? to ikarus.predicates

This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 05:09:15 -04:00
parent fdd93d6000
commit bd8b9db6cc
3 changed files with 8 additions and 5 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.

1
src/ikarus.core.ss
View File

@ -103,7 +103,6 @@
(error 'char-downcase "~s is not a character" c)]))) (error 'char-downcase "~s is not a character" c)])))
(primitive-set! 'eq? (lambda (x y) (eq? x y)))
(primitive-set! 'eqv? (primitive-set! 'eqv?
(lambda (x y) (lambda (x y)

12
src/ikarus.predicates.ss
View File

@ -3,18 +3,18 @@
(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) vector? string? procedure? null? pair? symbol? not eq?)
(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) pair? symbol? not eq?)
(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?
null? pair? symbol?) null? pair? symbol? eq?)
(fixnum? sys:fixnum?) (fixnum? sys:fixnum?)
(flonum? sys:flonum?) (flonum? sys:flonum?)
(bignum? sys:bignum?) (bignum? sys:bignum?)
@ -27,7 +27,8 @@
(procedure? sys:procedure?) (procedure? sys:procedure?)
(null? sys:null?) (null? sys:null?)
(pair? sys:pair?) (pair? sys:pair?)
(symbol? sys:symbol?))) (symbol? sys:symbol?)
(eq? sys:eq?)))
(define fixnum? (define fixnum?
(lambda (x) (sys:fixnum? x))) (lambda (x) (sys:fixnum? x)))
@ -87,4 +88,7 @@
(define symbol? (lambda (x) (sys:symbol? x))) (define symbol? (lambda (x) (sys:symbol? x)))
(define not (lambda (x) (if x #f #t))) (define not (lambda (x) (if x #f #t)))
(define eq? (lambda (x y) (sys:eq? x y)))
) )