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

SML: Step 6

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

20
impls/sml/step6_file.sml
View File

@ -70,11 +70,17 @@ val prelude = " \
\ (eval (read-string (str \"(do \" (slurp f) \"\nnil)\")))))"
fun main () = (
bind [
SYMBOL "eval",
FN (fn ([x]) => eval initEnv x
| _ => raise NotApplicable "'eval' requires one argument")
] initEnv;
rep initEnv prelude;
repl initEnv
bind [
SYMBOL "eval",
FN (fn ([x]) => eval initEnv x
| _ => raise NotApplicable "'eval' requires one argument")
] initEnv;
rep initEnv prelude;
case CommandLine.arguments () of
prog::args => (
def "*ARGV*" (LIST (map STRING args)) initEnv;
rep initEnv ("(load-file \"" ^ prog ^ "\")");
()
)
| _ => repl initEnv
)