Add support for comments

2021-04-02 16:05:22 +02:00 · 2021-04-02 16:05:22 +02:00 · 31bab456b0
parent 106a58991d
commit 31bab456b0
1 changed files with 5 additions and 1 deletions
--- a/lib/Minilisp.pm
+++ b/lib/Minilisp.pm
@ -21,7 +21,11 @@ sub tokenize {

  while ($str)
    {
-      if ($str =~ s/^\(//)
+      if ($str =~ s/^;.*\n//)
+        {
+          # Comment. do nothing
+        }
+      elsif ($str =~ s/^\(//)
        {
          push @tokens, { type => LPAREN };
        }