fix list pattern not failing
This commit is contained in:
parent
7bebcdd1dc
commit
1aad8057a0
|
@ -145,6 +145,7 @@ patternBindings (ListP (x:xs)) (ListV (y:ys)) =
|
||||||
env <- patternBindings x y
|
env <- patternBindings x y
|
||||||
env' <- patternBindings (ListP xs) (ListV ys)
|
env' <- patternBindings (ListP xs) (ListV ys)
|
||||||
Just $ M.union env' env
|
Just $ M.union env' env
|
||||||
|
patternBindings (ListP _) _ = Nothing -- not a list
|
||||||
|
|
||||||
-- applies many arguments to a function
|
-- applies many arguments to a function
|
||||||
applyMany :: Value -> [Value] -> InterpState Value
|
applyMany :: Value -> [Value] -> InterpState Value
|
||||||
|
|
Loading…
Reference in New Issue