skip comments (mostly)

1 files changed, 7 insertions, 0 deletions

diff --git a/parser.d b/parser.d
index f05d8fc..43c7faa 100644
--- a/parser.d
+++ b/parser.d
@@ -499,6 +499,7 @@ class Parser {
 
         char next;
         while(peekable()) {
+            skipWhitespace();
             next = peek();
             if (next == ')') {
                 break;
@@ -534,6 +535,7 @@ class Parser {
 
         char next;
         while(peekable()) {
+            skipWhitespace();
             next = peek();
             if (next == ')') {
                 break;
@@ -700,6 +702,11 @@ class Parser {
             case '(':
                 advance();  // go past the open paren
                 return parseCons();
+            case ';':
+                while (peekable() && peek() != '\n') {
+                    advance();
+                }
+                return parseForm();
             case ':':
                 // skipping types for now, so consume/print/throw away
                 char[] typ;