mirror of
https://github.com/kanaka/mal.git
synced 2024-09-11 13:55:55 +03:00
Merge pull request #576 from Garklein/master
fixed mal implementation debugging comments
This commit is contained in:
commit
c7d43f663b
@ -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)
|
||||||
|
|
||||||
|
@ -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)
|
||||||
|
|
||||||
|
@ -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)
|
||||||
|
|
||||||
|
@ -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)
|
||||||
|
|
||||||
|
@ -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)
|
||||||
|
|
||||||
|
@ -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)
|
||||||
|
|
||||||
|
@ -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)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user