(process-define-module): In #:use-syntax processing,

change two occurrences of interface-args to (car interface-args).
Fixes a problem with #:use-syntax reported by Bruce Carleton.

NEWS

@@ -28,6 +28,7 @@ Changes in 1.6.9 (since 1.6.8):
 ** Fixed a segmentation fault which occurred when displaying the
 backtrace of a stack with a promise object (made by `delay') in it.
 ** Fixed MinGW versions of dirname and basename.
+** Fixed uses of #:use-syntax within (define-module ...) forms.
 
 * Changes to the C interface 
 

THANKS

@@ -33,6 +33,7 @@ For fixes or providing information which led to a fix:
        Christof Boeckler
    Quetzalcoatl Bradley
          Adrian Bunk
+          Bruce Carleton
         Michael Carmack
 	 George Caswell
 	 Albert Chin

ice-9/ChangeLog

@@ -1,3 +1,9 @@
+2008-03-25  Neil Jerram  <neil@ossau.uklinux.net>
+
+	* boot-9.scm (process-define-module): In #:use-syntax processing,
+	change two occurrences of interface-args to (car interface-args).
+	Fixes a problem with #:use-syntax reported by Bruce Carleton.
+
 2006-12-09  Kevin Ryde  <user42@zip.com.au>
 
 	* boot-9.scm (top-repl): Remove module-use! of the core `(guile)'

ice-9/boot-9.scm

@@ -1768,9 +1768,9 @@
 	     (let* ((interface-args (cadr kws))
 		    (interface (apply resolve-interface interface-args)))
 	       (and (eq? (car kws) #:use-syntax)
-		    (or (symbol? (car interface-args))
+		    (or (symbol? (caar interface-args))
 			(error "invalid module name for use-syntax"
-			       interface-args))
+			       (car interface-args)))
 		    (set-module-transformer!
 		     module
 		     (module-ref interface (car