From 15e2e506687f6e914095f2194c545204b49e3d98 Mon Sep 17 00:00:00 2001
From: mryouse
Date: Sun, 28 May 2023 02:13:40 +0000
Subject: skip comments (mostly)

---
 parser.d | 7 +++++++
 1 file changed, 7 insertions(+)

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;
-- 
cgit v1.2.3