kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-11 13:55:55 +03:00
Code Issues Projects Releases Wiki Activity

fix comment bug in reader

Browse Source
This commit is contained in:
Fabian 2021-04-01 19:30:56 +02:00 committed by Joel Martin
parent e160b83391
commit 2f046fbefd
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
impls/sml/reader.sml
View File

@ -63,11 +63,12 @@ fun scanSpace ss =
if Ss.isEmpty tok then NONE else SOME (SPACE, rest)
end
fun scanComment ss =
if Ss.isPrefix ";" ss
then SOME (Ss.slice (ss, 1, NONE) |> Ss.string |> COMMENT,
Ss.slice (ss, Ss.size ss, SOME 0))
else NONE
fun scanComment ss = case Ss.getc ss of
SOME (#";", rest) =>
let val (comment, rest) = Ss.splitl (fn (c) => c <> #"\n") rest in
SOME (COMMENT (Ss.string comment), rest)
end
| _ => NONE
fun scanSpecial ss =
if Ss.isPrefix "~@" ss
@ -129,7 +130,7 @@ and readForm r =
fun clean ts =
ts |> List.filter (fn x => x <> SPACE)
|> takeWhile (fn COMMENT _ => false | _ => true)
|> List.filter (fn COMMENT _ => false | _ => true)
fun readStr s =
case tokenize s |> clean of