implement 'var' for interp2

2025-09-16 13:21:32 -05:00
parent a300d758a9
commit 5da754d5ab
1 changed files with 4 additions and 0 deletions
--- a/src/kiss/KissInterp2.kiss
+++ b/src/kiss/KissInterp2.kiss
@@ -32,6 +32,10 @@
 		->[args cc]
 			(_evalAllCC args ->values
 				(cc (values.pop)))
+	=>"var"
+		->[args cc]
+			(let [name (symbolNameValue (first args))]
+				(evalCC (second args) ->val {(dictSet globals name val) (cc val)}))
 ])

 (method :ReaderExp read [:Dynamic input]