shortened ::* to :*

t/class-5001.err

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

t/fun-01.hcl

@@ -32,7 +32,7 @@ if (= k 70) {
 ## --------------------------------------
 
 defclass A | a b c | {
-	defun ::* newInstance(x y z) {
+	defun :* newInstance(x y z) {
 		(set a x)
 		(set b y)
 		(set c z)

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;
@@ -16,7 +16,7 @@ defclass A | a b c |  {
 
 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/insta-02.hcl

@@ -1,6 +1,6 @@
 set t (
 	class | x | {
-		defun ::* make() { set x 1234; return self; };
+		defun :* make() { set x 1234; return self; };
 		defun get-x() { return x };
 	}
 );

t/var-01.hcl

@@ -68,7 +68,7 @@
 (defclass T
 	| j |
 
-	(defun ::* new()
+	(defun :* new()
 		(set j 99)
 		(return self)
 	)

t/var-5001.err

@@ -1,5 +1,5 @@
 defclass A | a | {
-	defun ::* init1() {
+	defun :* init1() {
 		| b |
 		set b (+ 1 2);
 		set a b;
@@ -15,7 +15,7 @@ defclass A | a | {
 		printf ">>> %d\n" j;
 	}
 
-	defun ::* init2() {
+	defun :* init2() {
 		| b |
 		set b (+ 10 20);
 		set a b;