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

* syntax.ss librarified.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-01 05:16:32 -04:00
parent 218b0aab48
commit b772735658
4 changed files with 11 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/makefile.ss
View File

@ -248,6 +248,7 @@
["libtrace.ss" "libtrace.fasl" p0 onepass] ["libtrace.ss" "libtrace.fasl" p0 onepass]
["libcompile.ss" "libcompile.fasl" p1 onepass] ["libcompile.ss" "libcompile.fasl" p1 onepass]
["psyntax-7.1.ss" "psyntax.fasl" p0 onepass] ["psyntax-7.1.ss" "psyntax.fasl" p0 onepass]
["syntax.ss" "syntax.fasl" p0 onepass]
["libpp.ss" "libpp.fasl" p0 onepass] ["libpp.ss" "libpp.fasl" p0 onepass]
["libcafe.ss" "libcafe.fasl" p0 onepass] ["libcafe.ss" "libcafe.fasl" p0 onepass]
["libposix.ss" "libposix.fasl" p0 onepass] ["libposix.ss" "libposix.fasl" p0 onepass]

10
src/psyntax-7.1.ss
View File

@ -1998,11 +1998,11 @@
(else (error 'sc-expand-internal "unexpected module binding type ~s" t))))) (else (error 'sc-expand-internal "unexpected module binding type ~s" t)))))
(loop bs)))))))))))) (loop bs))))))))))))
(define chi-top-library ;(define chi-top-library
(let () ; (let ()
(include "syntax.ss") ; (include "syntax.ss")
(primitive-set! 'chi-top-library library-expander) ; (primitive-set! 'chi-top-library library-expander)
library-expander)) ; library-expander))
(define id-set-diff (define id-set-diff
(lambda (exports defs) (lambda (exports defs)

5
src/syntax.ss
View File

@ -1,4 +1,7 @@
(library (ikarus syntax)
(export)
(import (scheme))
(define who 'chi-top-library) (define who 'chi-top-library)
(define noexpand "noexpand") (define noexpand "noexpand")
@ -2517,4 +2520,6 @@
(apply string-append args) (apply string-append args)
(strip x '())))) (strip x '()))))
(primitive-set! 'x:syntax-dispatch syntax-dispatch) (primitive-set! 'x:syntax-dispatch syntax-dispatch)
(primitive-set! 'chi-top-library library-expander))