changed ::: to :: to indicate class variables, parent class, retvar

t/Makefile.am

@@ -21,6 +21,7 @@ check_ERRORS = \
 	feed-5004.err \
 	feed-5005.err \
 	feed-5006.err \
+	feed-5007.err \
 	mlist-5001.err \
 	var-5001.err \
 	var-5002.err \

t/Makefile.in

@@ -492,6 +492,7 @@ check_ERRORS = \
 	feed-5004.err \
 	feed-5005.err \
 	feed-5006.err \
+	feed-5007.err \
 	mlist-5001.err \
 	var-5001.err \
 	var-5002.err \

t/class-5001.err

@@ -2,7 +2,7 @@ defclass B | x y | {
 
 };
 
-defclass X ::: B | a b | {
+defclass X :: B | a b | {
 	defun :* new(t) {
 		| a |
 		set self.a t;

t/feed-01.hcl

@@ -5,7 +5,7 @@
 | J |
 
 defun xxx (x y z
-	::: r ) {
+	:: r ) {
 
 	| k
 	b

t/feed-5007.err

@@ -0,0 +1 @@
+printf :*; ##ERROR: syntax error - prohibited in this context

t/insta-01.hcl

@@ -2,7 +2,7 @@
 
 defclass A | a b c |  {
 
-	defun:*newInstance(x y z) {
+	defun :*newInstance(x y z) {
 		set a x;
 		set b y;
 		set c z;
@@ -14,9 +14,9 @@ defclass A | a b c |  {
 	defun get-c() { return self.c; };
 };
 
-defclass B ::: A | d e f | {
+defclass B :: A | d e f | {
 
-	defun:*newInstance(x y z) {
+	defun :*newInstance(x y z) {
 		super:newInstance (* x 2) (* y 2) (* z 2);
 		set d x;
 		set e y;

t/retvar-01.hcl

@@ -6,7 +6,7 @@
 
 	set i 100;
 
-	defun ff(a b ::: x y z) {
+	defun ff(a b :: x y z) {
 		set x (+ a b i);
 		set y (+ x x);
 		set z (+ 999 i);
@@ -29,17 +29,17 @@
 
 
 	## test return variables in message sends
-	defclass B ::: | X1 X2 | {
+	defclass B :: | X1 X2 | {
 
 		set X1 999;
 		set X2 888;
 
-		defun ::: get ( ::: x y)  {
+		defun :: get ( :: x y)  {
 			set x X1;
 			set y X2;
 		};
 
-		defun ::: get2 (inc ::: x y)  {
+		defun :: get2 (inc :: x y)  {
 			set x (+ X1 inc);
 			set y (+ X2 inc);
 		};

t/va-01.hcl

@@ -7,7 +7,7 @@ defun fn-y (t1 t2 va-ctx) {
         };
 };
 
-defun x(a b ... ::: x y z) {
+defun x(a b ... :: x y z) {
         |i|
 
         set x (va-count);

t/var-01.hcl

@@ -1,4 +1,4 @@
-(defun x (a b ::: r)
+(defun x (a b :: r)
 	
 	| x y |
 

t/var-02.hcl

@@ -1,4 +1,4 @@
-defun x (a ::: x y z) {
+defun x (a :: x y z) {
 	x := (* a a);
 	y := (+ a a);
 	z := (- x y);