fix 'x::xs' pattern not working on one-element lists

2013-10-20 21:51:54 -07:00 · 2013-10-20 21:51:54 -07:00 · 3be45c44e5
parent 9dc145c08f
commit 3be45c44e5
1 changed files with 0 additions and 1 deletions
--- a/interp.hs
+++ b/interp.hs
@ -146,7 +146,6 @@ patternBindings UnitP UnitV = Just M.empty
 patternBindings UnitP _ = Nothing

 patternBindings (ConsP x (ListP [])) (ListV (y:[])) = patternBindings x y
-patternBindings (ConsP _ _) (ListV (_:[])) = Nothing
 patternBindings (ConsP xp xsp) (ListV (x:xs)) =
 	do
 		xe <- patternBindings xp x