kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-11 13:55:55 +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 ;; eval
(def! eval-ast (fn* [ast env] (def! eval-ast (fn* [ast env]
;; (do (prn "eval-ast" ast "/" (keys env)) ) ;; (do (prn "eval-ast" ast "/" (keys @env)) )
(cond (cond
(symbol? ast) (env-get env ast) (symbol? ast) (env-get env ast)

2
impls/mal/step4_if_fn_do.mal
View File

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

2
impls/mal/step6_file.mal
View File

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

2
impls/mal/step7_quote.mal
View File

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

2
impls/mal/step8_macros.mal
View File

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

2
impls/mal/step9_try.mal
View File

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

2
impls/mal/stepA_mal.mal
View File

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