From db2abd9da3507b4329c06cced193ab7bedb49cea Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Sun, 30 Aug 2015 10:58:38 +0100 Subject: [PATCH] src/module-parse.lisp: Reinstate `peek' around the main item parser. Organization: Straylight/Edgeware From: Mark Wooding 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. --- src/module-parse.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 @@ (defun parse-class-body (scanner pset name supers) ;; (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 -- [mdw]