From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Mon, 24 Apr 2023 06:58:31 +0000 (+1000)
Subject: bug fix
X-Git-Tag: 0.1.0~7
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=4acfd2b1b741a8d7f0bf6500010e87d78fbc4776;p=rrq%2Fnewlisp%2Fpacknl.git

bug fix
---

diff --git a/incore.lsp b/incore.lsp
index 2847b54..6b0a02f 100644
--- a/incore.lsp
+++ b/incore.lsp
@@ -85,12 +85,12 @@
 
 (constant
    'load
-   (letex ((LOAD load) (CTX '(if (1 (args)) (args 1)) MAIN))
+   (letex ((LOAD load) (CTX '(if (1 (args)) (args 1) MAIN)))
      (fn () (if (archives (args 0))
                 (eval-string (archive:get $it (args 0)) CTX)
-              (LOAD (args 0) CTX))))
+              (LOAD (args 0) (eval CTX)))))
    'read-file
-   (letex ((READ-FILE read-file) (CTX '(if (1 (args)) (args 1)) MAIN))
+   (letex ((READ-FILE read-file) (CTX '(if (1 (args)) (args 1) MAIN)))
      (fn ()
        (if (archives (args 0)) (archive:get $it (args 0) CTX)
          (READ-FILE (args 0)))))