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

add *host-language* and repl welcome

Browse Source
This commit is contained in:
Fabian 2021-04-05 21:47:32 +02:00 committed by Joel Martin
parent 9c6ae5d723
commit 06894e6c8b
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
impls/sml/stepA_mal.sml
View File

@ -102,7 +102,7 @@ fun rep e s =
| MalException e => "ERROR: " ^ (prStr e)
| e => "ERROR: " ^ (exnMessage e)
val initEnv = ENV (NS (ref [])) |> bind coreNs
val replEnv = ENV (NS (ref [])) |> bind coreNs
fun repl e =
let open TextIO
@ -140,18 +140,20 @@ val prelude = " \
fun main () = (
bind [
SYMBOL "eval",
FN (fn ([x]) => eval initEnv x
FN (fn ([x]) => eval replEnv x
| _ => raise NotApplicable "'eval' requires one argument")
] initEnv;
rep initEnv ("(do " ^ prelude ^ " nil)");
] replEnv;
rep replEnv ("(do " ^ prelude ^ " nil)");
case CommandLine.arguments () of
prog::args => (
def "*ARGV*" (LIST (map STRING args)) initEnv;
rep initEnv ("(load-file \"" ^ prog ^ "\")");
def "*ARGV*" (LIST (map STRING args)) replEnv;
rep replEnv ("(load-file \"" ^ prog ^ "\")");
()
)
| args => (
def "*ARGV*" (LIST (map STRING args)) initEnv;
repl initEnv
def "*ARGV*" (LIST (map STRING args)) replEnv;
def "*host-language*" (STRING "sml") replEnv;
rep replEnv "(println (str \"Mal [\" *host-language* \"]\"))";
repl replEnv
)
)