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

* moved cons to ikarus.pairs

This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 05:07:49 -04:00
parent 8a54b4513c
commit fdd93d6000
3 changed files with 4 additions and 2 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

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

5
src/ikarus.pairs.ss
View File

@ -2,13 +2,16 @@
(library (ikarus pairs) (library (ikarus pairs)
(export (export
cons
car cdr caar cdar cadr cddr caaar cdaar cadar cddar caadr cdadr car cdr caar cdar cadr cddr caaar cdaar cadar cddar caadr cdadr
caddr cdddr caaaar cdaaar cadaar cddaar caadar cdadar caddar caddr cdddr caaaar cdaaar cadaar cddaar caadar cdadar caddar
cdddar caaadr cdaadr cadadr cddadr caaddr cdaddr cadddr cddddr) cdddar caaadr cdaadr cadadr cddadr caaddr cdaddr cadddr cddddr)
(import (import
(only (ikarus) define if lambda pair? error quote let) (only (ikarus) define if lambda pair? error quote let)
(only (scheme) $car $cdr)) (rename (only (scheme) cons $car $cdr)
(cons sys:cons)))
(define cons (lambda (x y) (sys:cons x y)))
(define err (define err
(lambda (who x) (lambda (who x)
(error who "invalid list structure ~s" x))) (error who "invalid list structure ~s" x)))