* boot-9.scm (use-syntax): Return *unspecified*.

* syncase.scm: (syncase): Set expansion-eval-closure.

ice-9/ChangeLog

@@ -1,13 +1,17 @@
 2003-01-15  Mikael Djurfeldt  <djurfeldt@nada.kth.se>
 
+	* boot-9.scm (use-syntax): Return *unspecified*.
+
 	* syncase.scm: Set expansion-eval-closure to
 	the-syncase-eval-closure during booting so that variables are
-	created in the correct module;
+	created in the correct module.
+	(syncase): Set expansion-eval-closure.
 	(define-syntax define-syntax-public eval-when fluid-let-syntax
 	identifier-syntax let-syntax letrec-syntax syntax syntax-case
 	syntax-rules with-syntax include): Removed definitions (these are
 	created from within psyntax.pp).
 
+
 2003-01-10  Mikael Djurfeldt  <djurfeldt@nada.kth.se>
 
 	* occam-channel.scm (make-channel): Renamed from channel.

ice-9/boot-9.scm

@@ -1,6 +1,6 @@
 ;;; installed-scm-file
 
-;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002 Free Software Foundation, Inc.
+;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002, 2003 Free Software Foundation, Inc.
 ;;;;
 ;;;; This program is free software; you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -2593,7 +2593,8 @@
 				   (list ,@(compile-interface-spec spec))))
 	     (set-module-transformer! (current-module)
 				      ,(car (last-pair spec))))
-	   `((set-module-transformer! (current-module) ,spec))))
+	   `((set-module-transformer! (current-module) ,spec)))
+     *unspecified*)
     (else
      (error "use-syntax can only be used at the top level"))))
 

ice-9/syncase.scm

@@ -226,7 +226,10 @@
 			    '*sc-expander*
 			    '(define))))
 
-(define syncase sc-expand)
+(define (syncase exp)
+  (with-fluids ((expansion-eval-closure
+		 (module-eval-closure (current-module))))
+    (sc-expand exp)))
 
 (set-module-transformer! the-syncase-module syncase)