madmaurice/Minilisp.pm
1
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add support for comments

Browse source
This commit is contained in:
madmaurice 2021-04-02 16:05:22 +02:00
parent 106a58991d
commit 31bab456b0
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/Minilisp.pm
View file

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