yogsototh/lish
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

empty?

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2017-04-12 00:11:58 +02:00
parent 94eea6e32f
commit 2c8f467273
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/Lish/InternalCommands.hs
View file

@ -153,6 +153,17 @@ fn reducer (p:bodies) = do
fromAtom _ = Nothing
fn _ _ = return Void
emptyCmd :: Command
emptyCmd _ ((List []):[]) = return (Bool True)
emptyCmd _ ((List _):[]) = return (Bool False)
emptyCmd r (x@(Atom _):[]) = do
val <- r x
emptyCmd r (val:[])
emptyCmd r (x@(Lambda _):[]) = do
val <- r x
emptyCmd r (val:[])
emptyCmd _ _ = return Void
strictCommands :: [(Text,ReduceUnawareCommand)]
strictCommands = [ ("prn", prn)
, ("pr", pr)
@ -209,6 +220,8 @@ unstrictCommands = [ ("if", InternalCommand "if" lishIf)
, ("def", InternalCommand "def" def)
, ("fn", InternalCommand "fn" fn)
, ("do", InternalCommand "do" doCommand)
-- list ops
, ("empty?",InternalCommand "empty?" emptyCmd)
]
internalCommands :: Map.Map Text InternalCommand