mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 09:40:21 +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
|
||||
(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)
|
||||
|
||||
|
@ -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)
|
||||
|
||||
|
@ -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)
|
||||
|
||||
|
@ -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)
|
||||
|
||||
|
@ -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)
|
||||
|
||||
|
@ -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)
|
||||
|
||||
|
@ -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)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user