fixed mal implementation debugging comments

Aegwenia · Jul 16, 2021 · af78ff6 · af78ff6
1 parent 36f758d
commit af78ff6
Show file tree

Hide file tree

Showing 7 changed files with 7 additions and 7 deletions.
diff --git a/impls/mal/step3_env.mal b/impls/mal/step3_env.mal
@@ -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)
 

diff --git a/impls/mal/step4_if_fn_do.mal b/impls/mal/step4_if_fn_do.mal
@@ -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)
 

diff --git a/impls/mal/step6_file.mal b/impls/mal/step6_file.mal
@@ -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)
 

diff --git a/impls/mal/step7_quote.mal b/impls/mal/step7_quote.mal
@@ -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)
 

diff --git a/impls/mal/step8_macros.mal b/impls/mal/step8_macros.mal
@@ -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)
 

diff --git a/impls/mal/step9_try.mal b/impls/mal/step9_try.mal
@@ -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)
 

diff --git a/impls/mal/stepA_mal.mal b/impls/mal/stepA_mal.mal
@@ -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)