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

Fix parsing comment at end of file

Browse source
This commit is contained in:
madmaurice 2021-04-08 23:33:09 +02:00
parent 4aaff13d91
commit 6bff33af20
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Minilisp.pm
View file

@ -47,7 +47,7 @@ sub tokenize {
while ($str) while ($str)
{ {
if ($str =~ s/^;.*\n//) if ($str =~ s/^;.*(\n|$)//)
{ {
$debug->("Comment"); $debug->("Comment");
# Comment. do nothing # Comment. do nothing

4
t/comments.t
View file

@ -1,2 +1,6 @@
;; This is a comment ;; This is a comment
(expect "Comment does not influence code" t) (expect "Comment does not influence code" t)
;; Another comment
(expect "Comment does not influence code pt.2" t) ;; Even after another expression
(expect "Comment does not influence code pt.3" t)
;; Last comment