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

* libcxr librarified

This commit is contained in:
Abdulaziz Ghuloum 2007-04-30 00:35:28 -04:00
parent f4b0668ebb
commit 56f3d05a6e
3 changed files with 9 additions and 3 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.

10
src/libcxr.ss
View File

@ -3,8 +3,14 @@
;(primitive-set! 'cdr (lambda (x) (cdr x))) ;(primitive-set! 'cdr (lambda (x) (cdr x)))
;(primitive-set! 'cadr (lambda (x) (cadr x))) ;(primitive-set! 'cadr (lambda (x) (cadr x)))
(let ([err (lambda (who x) (library (ikarus cxr)
(error who "invalid list structure ~s" x))]) (export)
(import (scheme))
(define err
(lambda (who x)
(error who "invalid list structure ~s" x)))
(primitive-set! (primitive-set!
'car 'car
(lambda (orig) (lambda (orig)