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

* the primitive chi-top-library is gone.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-03 01:25:09 -04:00
parent bee47205bf
commit 7595e45326
3 changed files with 1 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.

1
src/library-manager.ss
View File

@ -439,7 +439,6 @@
[syntax-error syntax-error-label (core-prim . syntax-error)] [syntax-error syntax-error-label (core-prim . syntax-error)]
[generate-temporaries generate-temporaries-label (core-prim . generate-temporaries)] [generate-temporaries generate-temporaries-label (core-prim . generate-temporaries)]
[free-identifier=? free-identifier=?-label (core-prim . free-identifier=?)] [free-identifier=? free-identifier=?-label (core-prim . free-identifier=?)]
[chi-top-library chi-top-library-label (core-prim . chi-top-library)]
[boot-library-expand boot-library-expand-label (core-prim . boot-library-expand)] [boot-library-expand boot-library-expand-label (core-prim . boot-library-expand)]
;;; codes ;;; codes
[$closure-code $closure-code-label (core-prim . $closure-code)] [$closure-code $closure-code-label (core-prim . $closure-code)]

3
src/libsyntax.ss
View File

@ -2,7 +2,7 @@
(library (ikarus syntax) (library (ikarus syntax)
(export) (export)
(import (scheme)) (import (scheme))
(define who 'chi-top-library) (define who 'expander)
(define-syntax no-source (define-syntax no-source
(lambda (x) #f)) (lambda (x) #f))
(begin ;;; GOOD ONES (begin ;;; GOOD ONES
@ -2075,7 +2075,6 @@
(strip x '())))) (strip x '()))))
(primitive-set! 'syntax-dispatch syntax-dispatch) (primitive-set! 'syntax-dispatch syntax-dispatch)
(primitive-set! 'boot-library-expand boot-library-expander) (primitive-set! 'boot-library-expand boot-library-expander)
(primitive-set! 'chi-top-library run-library-expander)
(primitive-set! 'eval-top-level run-library-expander)) (primitive-set! 'eval-top-level run-library-expander))