kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-08-17 01:30:26 +03:00
Code Issues Projects Releases Wiki Activity

hoist exception definitions

Browse Source
This commit is contained in:
Fabian 2021-03-26 11:13:21 +01:00 committed by Joel Martin
parent a2d0d6ce43
commit 1c637768c0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
impls/sml/reader.sml
View File

@ -1,3 +1,7 @@
exception Nothing
exception SyntaxError of string
exception ReaderError of string
structure Ss = Substring
datatype token =
@ -27,10 +31,6 @@ fun tokenString SPACE = "SPACE"
| tokenString AT = "AT"
| tokenString (ATOM s) = "ATOM (" ^ s ^ ")"
exception Nothing
exception SyntaxError of string
exception ReaderError of string
datatype reader = READER of token list
fun next (READER (x::xs)) = SOME (x, READER xs)