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

fixed mal implementation debugging comments

Browse Source
This commit is contained in:
Garklein 2021-07-16 13:16:44 -04:00
parent 36f758df05
commit af78ff6e50
7 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
impls/mal/step3_env.mal
View File

@ -10,7 +10,7 @@
;; eval
(def! eval-ast (fn* [ast env]
;; (do (prn "eval-ast" ast "/" (keys env)) )
;; (do (prn "eval-ast" ast "/" (keys @env)) )
(cond
(symbol? ast) (env-get env ast)

2
impls/mal/step4_if_fn_do.mal
View File

@ -11,7 +11,7 @@
;; eval
(def! eval-ast (fn* [ast env]
;; (do (prn "eval-ast" ast "/" (keys env)) )
;; (do (prn "eval-ast" ast "/" (keys @env)) )
(cond
(symbol? ast) (env-get env ast)

2
impls/mal/step6_file.mal
View File

@ -11,7 +11,7 @@
;; eval
(def! eval-ast (fn* [ast env]
;; (do (prn "eval-ast" ast "/" (keys env)) )
;; (do (prn "eval-ast" ast "/" (keys @env)) )
(cond
(symbol? ast) (env-get env ast)

2
impls/mal/step7_quote.mal
View File

@ -29,7 +29,7 @@
"else" (qq-foldr ast))))
(def! eval-ast (fn* [ast env]
;; (do (prn "eval-ast" ast "/" (keys env)) )
;; (do (prn "eval-ast" ast "/" (keys @env)) )
(cond
(symbol? ast) (env-get env ast)

2
impls/mal/step8_macros.mal
View File

@ -37,7 +37,7 @@
ast))))
(def! eval-ast (fn* [ast env]
;; (do (prn "eval-ast" ast "/" (keys env)) )
;; (do (prn "eval-ast" ast "/" (keys @env)) )
(cond
(symbol? ast) (env-get env ast)

2
impls/mal/step9_try.mal
View File

@ -37,7 +37,7 @@
ast))))
(def! eval-ast (fn* [ast env]
;; (do (prn "eval-ast" ast "/" (keys env)) )
;; (do (prn "eval-ast" ast "/" (keys @env)) )
(cond
(symbol? ast) (env-get env ast)

2
impls/mal/stepA_mal.mal
View File

@ -37,7 +37,7 @@
ast))))
(def! eval-ast (fn* [ast env]
;; (do (prn "eval-ast" ast "/" (keys env)) )
;; (do (prn "eval-ast" ast "/" (keys @env)) )
(cond
(symbol? ast) (env-get env ast)