From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 09:58:38 +0000 (+0100)
Subject: src/module-parse.lisp: Reinstate `peek' around the main item parser.
X-Git-Tag: 0.2.0~13
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/db2abd9da3507b4329c06cced193ab7bedb49cea

src/module-parse.lisp: Reinstate `peek' around the main item parser.

This was removed for debugging.  Now we can parse slot initializers
again.

The error handling for class items is still pretty awful and needs
fixing.
---

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 0713b76..9cad3d4 100644
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -342,13 +342,13 @@
 		 ;; (which might be dotted).  So we parse that here and
 		 ;; dispatch based on what we find.
 		 (parse (or (plug class-item scanner class sub-pset)
-			    ;(peek
+			    (peek
 			     (seq ((ds (parse-c-type scanner))
 				   (dc (parse-maybe-dotted-declarator ds))
 				   (nil (class-item-dispatch sub-pset
 							     ds
 							     (car dc)
-							     (cdr dc)))));)
+							     (cdr dc))))))
 			    (and "class"
 				 (parse-initializer-item
 				  sub-pset