From af78ff6e5006213b481fa05bfb37dd730e733452 Mon Sep 17 00:00:00 2001 From: Garklein Date: Fri, 16 Jul 2021 13:16:44 -0400 Subject: [PATCH] fixed mal implementation debugging comments --- impls/mal/step3_env.mal | 2 +- impls/mal/step4_if_fn_do.mal | 2 +- impls/mal/step6_file.mal | 2 +- impls/mal/step7_quote.mal | 2 +- impls/mal/step8_macros.mal | 2 +- impls/mal/step9_try.mal | 2 +- impls/mal/stepA_mal.mal | 2 +- 7 files changed, 7 insertions(+), 7 deletions(-) diff --git a/impls/mal/step3_env.mal b/impls/mal/step3_env.mal index 55747fed..ef813b83 100644 --- 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 index d23d790b..07d49648 100644 --- 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 index 9890924d..5abc7298 100644 --- 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 index 7739c85d..67b69f1e 100644 --- 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 index 53f06a47..63672923 100644 --- 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 index bf90c65a..aaac76e3 100644 --- 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 index c584f381..14107acd 100644 --- 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)