git » jacl.git » commit 700cfe2

Allow singlet let bindings

author Alan Dipert
2021-07-30 05:32:29 UTC
committer Alan Dipert
2021-07-30 05:32:29 UTC
parent c86d4caff0424fbb0e84fc969d500224eb4916a0

Allow singlet let bindings

jacl.js +2 -2

diff --git a/jacl.js b/jacl.js
index 6e2150d..c8395fd 100644
--- a/jacl.js
+++ b/jacl.js
@@ -1472,10 +1472,10 @@ const analyzeSpecials = new Map([
     node.envId = env.counter();
     node.specials = [];
     for (const binding of List.toArray(bindings)) {
-      if (!List.isProperList(binding) || List.length(binding) !== 2)
+      if (!List.isProperList(binding) || List.length(binding) > 2)
         throw new Error(`Improper %LET binding`);
       const [name, expr] = binding,
-            val = analyze(env.withContext('expr'), node, expr);
+            val = analyze(env.withContext('expr'), node, expr || null);
       if (name.isSpecial) {
         node.specials.push([name, val]);
       } else {