From 206689c943ba93ad48ce2b41166ca1902ed920a9 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Thu, 21 Nov 2019 23:23:23 +0100 Subject: cons, cond, exit --- VM.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'VM.hs') diff --git a/VM.hs b/VM.hs index b66cfc5..64674fb 100644 --- a/VM.hs +++ b/VM.hs @@ -127,6 +127,7 @@ vmRunBuiltin state "cdr" [RVList l] = case l of _ : a -> return (RVList a, state) _ -> throw "Empty list in 'cdr'" vmRunBuiltin state "list" values = return (RVList values, state) +vmRunBuiltin state "cons" [val, RVList l] = return (RVList (val : l), state) vmRunBuiltin state "sys-open-file" [RVNum modenum, RVString path] = do let mode = [ReadMode, WriteMode] !! modenum fid = sUniq state -- cgit v1.2.3-70-g09d2