* 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

Binary file not shown.

View File

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

View File

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

View File

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