* syntax.ss librarified.

src/makefile.ss

@@ -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]

src/psyntax-7.1.ss

@@ -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)

src/syntax.ss

@@ -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))
+