proper return variables handling in message sends

t/retvar-01.hcl

@@ -1,7 +1,7 @@
 ((lambda ()
 	; test return variables
 
-	| v1 v2 v3 i |
+	| v1 v2 v3 i a b c d |
 
 	(set i 100)
 
@@ -23,4 +23,35 @@
 	(if (/= v2 2006) (printf "ERROR: v2 must be 2006\n"))
 	(if (/= v3 1099) (printf "ERROR: v3 must be 1099\n"))
 	(printf "OK v1=%d v2=%d v3=%d\n" v1 v2 v3)
+
+
+
+
+	; test return variables in message sends
+	(defclass B
+		::: | X1 X2 |
+
+		(set X1 999)
+		(set X2 888)
+
+		(defun ::: get ( ::: x y) 
+			(set x X1) 
+			(set y X2)
+		)
+
+		(defun ::: get2 (inc ::: x y) 
+			(set x (+ X1 inc)) 
+			(set y (+ X2 inc))
+		)
+	)
+
+	(set-r a b (:B get))
+	(set-r c d (:B get2 -100))
+
+	(if (/= a 999) (printf "ERROR: a must be 999\n"))
+	(if (/= b 888) (printf "ERROR: b must be 888\n"))
+	(if (/= c 899) (printf "ERROR: c must be 899\n"))
+	(if (/= d 788) (printf "ERROR: d must be 788\n"))
+
+	(printf "OK: a=%d b=%d c=%d d=%d\n" a b c d)
 ))