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

Merge pull request #576 from Garklein/master

Browse Source 
fixed mal implementation debugging comments
This commit is contained in:
Vasilij Schneidermann 2021-07-16 20:03:47 +02:00 committed by GitHub
commit c7d43f663b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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)