diff options
| author | Joel Martin <github@martintribe.org> | 2014-03-31 23:05:41 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-03-31 23:05:41 -0500 |
| commit | 3da90d39071ddd9a70c6adaf69fbc8f8b99346dd (patch) | |
| tree | f6f0567ae30fbd54dda6d43e8336f56e35ed828f /ps/step3_env.ps | |
| parent | 8e7e339db8060f95d27694b93b8d4d648d13c083 (diff) | |
| download | mal-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.ps | 5 |
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 |
