cons, cond, exit

1 files changed, 1 insertions, 0 deletions

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