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)

2
src/makefile.ss
View File

@ -233,7 +233,7 @@
["libcontrol1.ss" "libcontrol1.fasl" p0 onepass] ["libcontrol1.ss" "libcontrol1.fasl" p0 onepass]
["libcollect.ss" "libcollect.fasl" p0 onepass] ["libcollect.ss" "libcollect.fasl" p0 onepass]
["librecord.ss" "librecord.fasl" p0 onepass] ["librecord.ss" "librecord.fasl" p0 onepass]
["libcxr.ss" "libcxr.fasl" p0 onepass] ["libcxr.ss" "libcxr.fasl" p0 onepass]
["libnumerics.ss" "libnumerics.fasl" p0 onepass] ["libnumerics.ss" "libnumerics.fasl" p0 onepass]
["libguardians.ss" "libguardians.fasl" p0 onepass] ["libguardians.ss" "libguardians.fasl" p0 onepass]
["libcore.ss" "libcore.fasl" p0 onepass] ["libcore.ss" "libcore.fasl" p0 onepass]