src/module-parse.lisp: Frob `_' to `-' in item names.

This was just a stupid bug.

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index a42c31fc804ce6ecba9d9bc55cdbe0a7edd81153..8022bbf6e6f4f4da001a14567d4ffa7d15eee620 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -55,7 +55,8 @@ (define-pluggable-parser module code (scanner pset)
   (declare (ignore pset))
   (with-parser-context (token-scanner-context :scanner scanner)
     (flet ((kw ()
-            (parse (seq ((kw :id)) (intern (string-upcase kw) 'keyword)))))
+            (parse (seq ((kw :id))
+                     (intern (frob-identifier kw) 'keyword)))))
       (parse (seq ("code"
                   (reason (kw))
                   #\: