implement set, the, string interpolation in kissinterp2

src/kiss/KissInterp2.kiss

@@ -15,7 +15,13 @@
 (prop &mut :Map<String,ReaderExpDef> identAliases (new Map))
 (prop &mut :Map<String,ReaderExpDef> callAliases (new Map))
 
-(prop :Map<String,Dynamic> globals [=>"false" false =>"true" true =>"null" null])
+(prop :Map<String,Dynamic> globals [
+	=>"false" false
+	=>"true" true
+	=>"null" null
+	=>"Std" Std
+	=>"the" ->[_ v] v
+])
 (prop &mut :kiss.List<Map<String,Dynamic>> localScopes [])
 
 (prop :Map<String,(Array<ReaderExp>,Dynamic->Void)->Void> specialForms)
@@ -145,6 +151,26 @@
 					func (makeFunction argExps bodyExps)]
 				(dictSet globals name func)
 				(cc func))
+	=>"set"
+		->[args cc]
+			(evalCC (second args)
+				->v
+					(case .def (transformToFieldExp (first args))
+						((Symbol varName)
+							(doFor scope (reverse localScopes)
+								(when (scope.exists varName)
+									(dictSet scope varName v)
+									(cc v)
+									
+									(return)))
+							(when (globals.exists varName)
+								(dictSet globals varName v)))
+						((FieldExp field objExp _)
+							(evalCC objExp ->obj {
+								(Reflect.setProperty obj field v)
+								(cc v)
+							}))
+						(never otherwise)))
 ])
 
 (method :ReaderExp read [:Dynamic input]