diff options
Diffstat (limited to 'CompilerMacros.hs')
| -rw-r--r-- | CompilerMacros.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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) |