wball/perga
1
0
Fork 0
Code Issues 15 Pull requests Projects Releases Packages Wiki Activity Actions

clear binders after each definition (!!!)

Browse source
This commit is contained in:
William Ball 2024-11-28 14:32:30 -08:00
parent 9afa90d3af
commit 58168e461d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/Parser.hs
View file

@ -66,7 +66,7 @@ pVar :: Parser Expr
pVar = label "variable" $ lexeme $ do pVar = label "variable" $ lexeme $ do
name <- pIdentifier name <- pIdentifier
binders <- view bindsL <$> get binders <- view bindsL <$> get
pure (Var name . fromIntegral <$> elemIndex name binders ?: Free name) pure $ Var name . fromIntegral <$> elemIndex name binders ?: Free name
defChoice :: NonEmpty Text -> Parser () defChoice :: NonEmpty Text -> Parser ()
defChoice options = lexeme $ label (T.unpack $ head options) $ void $ choice $ fmap chunk options defChoice options = lexeme $ label (T.unpack $ head options) $ void $ choice $ fmap chunk options
@ -179,7 +179,7 @@ pBody params ident ascription = do
eat ";" eat ";"
pDef :: Parser () pDef :: Parser ()
pDef = lexeme $ label "definition" $ do pDef = lexeme $ label "definition" $ withBinders $ do
skipSpace skipSpace
ident <- pIdentifier ident <- pIdentifier
params <- pManyParams params <- pManyParams