fix list pattern not failing

2013-10-20 17:04:12 -07:00 · 2013-10-20 17:04:12 -07:00 · 1aad8057a0
parent 7bebcdd1dc
commit 1aad8057a0
1 changed files with 1 additions and 0 deletions
--- a/interp.hs
+++ b/interp.hs
@ -145,6 +145,7 @@ patternBindings (ListP (x:xs)) (ListV (y:ys)) =
 		env <- patternBindings x y
 		env' <- patternBindings (ListP xs) (ListV ys)
 		Just $ M.union env' env
+patternBindings (ListP _) _ = Nothing -- not a list

 -- applies many arguments to a function
 applyMany :: Value -> [Value] -> InterpState Value