kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-08-17 09:40:21 +03:00
Code Issues Projects Releases Wiki Activity

mal impl: spare an environment in implementation of do

Browse Source
This commit is contained in:
Nicolas Boulenguez 2021-07-30 18:22:56 +02:00 committed by Joel Martin
parent e4109e6795
commit 6d58903539
6 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
impls/mal/step4_if_fn_do.mal
View File

@ -52,8 +52,7 @@
(LET (new-env env) (nth ast 1) (nth ast 2))
(= 'do a0)
(let* [el (eval-ast (rest ast) env)]
(nth el (- (count el) 1)))
(nth (eval-ast (rest ast) env) (- (count ast) 2))
(= 'if a0)
(if (EVAL (nth ast 1) env)

3
impls/mal/step6_file.mal
View File

@ -52,8 +52,7 @@
(LET (new-env env) (nth ast 1) (nth ast 2))
(= 'do a0)
(let* [el (eval-ast (rest ast) env)]
(nth el (- (count el) 1)))
(nth (eval-ast (rest ast) env) (- (count ast) 2))
(= 'if a0)
(if (EVAL (nth ast 1) env)

3
impls/mal/step7_quote.mal
View File

@ -79,8 +79,7 @@
(EVAL (QUASIQUOTE (nth ast 1)) env)
(= 'do a0)
(let* [el (eval-ast (rest ast) env)]
(nth el (- (count el) 1)))
(nth (eval-ast (rest ast) env) (- (count ast) 2))
(= 'if a0)
(if (EVAL (nth ast 1) env)

3
impls/mal/step8_macros.mal
View File

@ -95,8 +95,7 @@
(MACROEXPAND (nth ast 1) env)
(= 'do a0)
(let* [el (eval-ast (rest ast) env)]
(nth el (- (count el) 1)))
(nth (eval-ast (rest ast) env) (- (count ast) 2))
(= 'if a0)
(if (EVAL (nth ast 1) env)

3
impls/mal/step9_try.mal
View File

@ -106,8 +106,7 @@
(EVAL (nth a2 2) (new-env env [(nth a2 1)] [exc])))))))
(= 'do a0)
(let* [el (eval-ast (rest ast) env)]
(nth el (- (count el) 1)))
(nth (eval-ast (rest ast) env) (- (count ast) 2))
(= 'if a0)
(if (EVAL (nth ast 1) env)

3
impls/mal/stepA_mal.mal
View File

@ -106,8 +106,7 @@
(EVAL (nth a2 2) (new-env env [(nth a2 1)] [exc])))))))
(= 'do a0)
(let* [el (eval-ast (rest ast) env)]
(nth el (- (count el) 1)))
(nth (eval-ast (rest ast) env) (- (count ast) 2))
(= 'if a0)
(if (EVAL (nth ast 1) env)