voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
voidlizard 2025-03-03 13:25:43 +03:00
parent 1a1d04ea5c
commit 41c023de8c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
View File

@ -530,8 +530,8 @@ apply_ :: forall c m . ( IsContext c
apply_ s args = case s of apply_ s args = case s of
ListVal [SymbolVal "builtin:lambda", SymbolVal n] -> apply n args ListVal [SymbolVal "builtin:lambda", SymbolVal n] -> apply n args
ListVal (SymbolVal "builtin:closure" : what@(SymbolVal _) : free) -> do ListVal (SymbolVal "builtin:closure" : e : free) -> do
apply_ what (free <> args) apply_ e (free <> args)
SymbolVal "quasiquot" -> mkList <$> mapM (evalQQ mempty) args SymbolVal "quasiquot" -> mkList <$> mapM (evalQQ mempty) args
SymbolVal "quasiquote" -> mkList <$> mapM (evalQQ mempty) args SymbolVal "quasiquote" -> mkList <$> mapM (evalQQ mempty) args
@ -1088,6 +1088,10 @@ internalEntries = do
r <- mapM eval syn r <- mapM eval syn
pure $ lastDef nil r pure $ lastDef nil r
entry $ bindMatch "curry" \case
[e1, e2] -> pure $ mkForm "builtin:closure" [e1, e2]
e -> throwIO (BadFormException @c (mkList e))
entry $ bindMatch "id" $ \case entry $ bindMatch "id" $ \case
[ e ] -> pure e [ e ] -> pure e
_ -> throwIO (BadFormException @C nil) _ -> throwIO (BadFormException @C nil)