From b6b6b86128da3c7f7ea86a051e476dd67bb37a92 Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Fri, 22 Nov 2019 22:36:21 +0100 Subject: Properly parse cond in CompilerMacros --- CompilerMacros.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'CompilerMacros.hs') diff --git a/CompilerMacros.hs b/CompilerMacros.hs index ce7974c..a2d9600 100644 --- a/CompilerMacros.hs +++ b/CompilerMacros.hs @@ -40,6 +40,7 @@ process (VList (VName "let" : _)) = error "Invalid 'let' syntax: Invalid argumen process (VList [VName "cond", defval]) = process defval process (VList (VName "cond" : cond1 : val1 : rest)) = process (VList [VName "if", cond1, val1, VList (VName "cond" : rest)]) +process (VList [VName "cond"]) = error "Invalid 'cond' syntax: Even number of arguments" process (VList values) = VList (map process values) -- cgit v1.2.3-54-g00ecf