commit 9d428a8dc2c358703dde6243066dcf5a39fab325
author swissChili <swisschili@fastmail.com> Mon Aug 01 20:47:40 2022 -0700
committer swissChili <swisschili@fastmail.com> Mon Aug 01 20:47:40 2022 -0700
tree fb510ebc4d534aaf4e003203e0795630abbe8ef5
parent 16156be5a740f7b4a075d9f15363b4fef9834043

Fix bug with merge2 and ,@, add (let)

src/lisp/compiler.dasc

diff --git a/src/lisp/compiler.dasc b/src/lisp/compiler.dasc
index 6549ecc..0a01079 100644
--- a/src/lisp/compiler.dasc
+++ b/src/lisp/compiler.dasc
@@ -488,6 +488,7 @@
 		}
 		else
 		{
+			// tail of the list
 			| push nil;
 
 			for (int i = n - 1; i >= 0; i--)
@@ -693,6 +694,7 @@
 			NEARVAL(binding);
 			if (length(binding) != 2)
 			{
+				printval(args, 0);
 				THROW(EARGS, "Binding list in let1 must contain exactly two entries");
 			}