mirror of https://github.com/voidlizard/hbs2
bf6 regress fixed
This commit is contained in:
parent
36f9937d7c
commit
a85a95d1f2
|
@ -304,8 +304,8 @@ lambdaArgList :: Syntax c -> Maybe [Id]
|
||||||
lambdaArgList (ListVal a) = sequence argz
|
lambdaArgList (ListVal a) = sequence argz
|
||||||
where
|
where
|
||||||
argz = flip fmap a \case
|
argz = flip fmap a \case
|
||||||
(SymbolVal x) | x `notElem` [".","_"] -> Just x
|
(SymbolVal x) -> Just x
|
||||||
_ -> Nothing
|
_ -> Nothing
|
||||||
|
|
||||||
lambdaArgList _ = Nothing
|
lambdaArgList _ = Nothing
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue