* boot-9.scm (process-define-module): Modified to handle both

keywords and symbols.

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 3da8ffe..6243736 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -1724,9 +1724,10 @@
                    reversed-interfaces)
          (case (cond ((keyword? (car kws))
                       (keyword->symbol (car kws)))
-                     ((symbol? (car kws))
+                     ((and (symbol? (car kws))
+                           (eq? (string-ref (car kws) 0) #\:))
                       (string->symbol (substring (car kws) 1)))
-                     (else (car kws)))
+                     (else #f))
            ((use-module)
             (if (not (pair? (cdr kws)))
                 (error "unrecognized defmodule argument" kws))