diff options
| author | Joel Martin <github@martintribe.org> | 2014-12-23 23:49:23 -0700 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-01-09 16:16:53 -0600 |
| commit | 2988d38e84bce8531c0f21fafecb7483593cda73 (patch) | |
| tree | 4aad5f8d6cca8a897eb177dd3ec16b7301cb2745 /haskell/Types.hs | |
| parent | fa9a9758e0d15abe670fbbfd8efa1fce013b1414 (diff) | |
| download | mal-2988d38e84bce8531c0f21fafecb7483593cda73.tar.gz mal-2988d38e84bce8531c0f21fafecb7483593cda73.zip | |
Haskell: add step7 and 8.
Diffstat (limited to 'haskell/Types.hs')
| -rw-r--r-- | haskell/Types.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/haskell/Types.hs b/haskell/Types.hs index 9a433c5..25736ec 100644 --- a/haskell/Types.hs +++ b/haskell/Types.hs @@ -24,7 +24,8 @@ data MalVal = Nil | MalFunc {fn :: Fn, ast :: MalVal, env :: Env, - params :: MalVal} + params :: MalVal, + macro :: Bool} _equal_Q Nil Nil = True _equal_Q MalFalse MalFalse = True @@ -82,7 +83,8 @@ catchAny = CE.catch _func fn = Func $ Fn fn _malfunc ast env params fn = MalFunc {fn=(Fn fn), ast=ast, - env=env, params=params} + env=env, params=params, + macro=False} -- Lists |