From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 5 Jan 2016 17:02:17 +0000 (+0000)
Subject: src/module-parse.lisp: Frob `_' to `-' in item names.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/298c0379a9232762e373c048202ca941816d9072

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 a42c31f..8022bbf 100644
--- 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))
 		   #\: