aboutsummaryrefslogtreecommitdiff
path: root/ps/step3_env.ps
diff options
context:
space:
mode:
authorJoel Martin <github@martintribe.org>2014-03-31 23:05:41 -0500
committerJoel Martin <github@martintribe.org>2014-03-31 23:05:41 -0500
commit3da90d39071ddd9a70c6adaf69fbc8f8b99346dd (patch)
treef6f0567ae30fbd54dda6d43e8336f56e35ed828f /ps/step3_env.ps
parent8e7e339db8060f95d27694b93b8d4d648d13c083 (diff)
downloadmal-3da90d39071ddd9a70c6adaf69fbc8f8b99346dd.tar.gz
mal-3da90d39071ddd9a70c6adaf69fbc8f8b99346dd.zip
PS: add step8_macros.
Use dicts rather than array block for user defined mal function type. Add fload function to setup call from a mal_function dict.
Diffstat (limited to 'ps/step3_env.ps')
-rw-r--r--ps/step3_env.ps5
1 files changed, 2 insertions, 3 deletions
diff --git a/ps/step3_env.ps b/ps/step3_env.ps
index 5feae46..e906386 100644
--- a/ps/step3_env.ps
+++ b/ps/step3_env.ps
@@ -48,13 +48,12 @@ end } def
a1 idx get
a1 idx 1 add get let_env EVAL
env_set
+ pop % discard the return value
} for
a2 let_env EVAL
}{
/el ast env eval_ast def
- el _rest % args array
- el _first cvx % function
- exec % apply function to args
+ el _rest el _first exec % apply function to args
} ifelse } ifelse
} ifelse
end } def