fixed the push_ivar instruction not pushing a value

README.md

@@ -87,39 +87,34 @@ do { | k | set k 20; printf "k=%d\n" k; };
 ## Defining a function
 
 ```
-(fun function-name (arguments)
+fun function-name(arguments) {
 	| local variables |
 	function body
-)
+}
 ```
 
 ```
-(set function-name (lambda (arguments)
+set function-name (fun(arguments) {
 	| local variables |
 	function body
-)
+})
 ```
 
 ## Class
 
 ```
-(class T
+class[attributes] Name: Superclass (ivars (cvars)) {
-        :: | A B C | ## class variables
+    ivar ivar1
+    cvar cvar1
 
-        (printf "initializing....\n")
+    set cvar1 20
 
-        (fun :: dump()
+    fun[attributes] name(arguments) {
-                (printf "%d %d %d\n" A B C)
+        | local variables |
-        )
+        function body
+    }
+}
 
-        (set A 10)
-        (set B 20)
-        (set C 30)
-
-        (printf "initialization done....\n")
-)
-
-(:T dump)
 ```
 
 ## Redefining a primitive function

lib/comp.c

@@ -3010,7 +3010,7 @@ static HAK_INLINE int compile_class_p1 (hak_t* hak)
 	/* the position of the CLASS_ENTER instruction */
 	hak->c->clsblk.info[hak->c->clsblk.depth].class_enter_inst_pos = hak->code.bc.len;
 
-	/* class_enter nsuperclasses, nivars, ncvars  */
+	/* class_enter nsuperclasses, nivars, ncvars, spec/selfspec, indexed_type  */
 	if (emit_byte_instruction(hak, HAK_CODE_CLASS_ENTER, &cf->u._class.start_loc) <= -1) goto oops;
 	if (emit_long_param(hak, cf->u._class.nsuperclasses) <= -1) goto oops;
 	if (emit_long_param(hak, vardcl.nivars) <= -1) goto oops;
@@ -3426,8 +3426,9 @@ static int compile_fun (hak_t* hak, hak_cnode_t* src)
 			{
 				/* TODO: it must allow as rvalue..
 				 * class X {
-				 *     b := (fun() {}) ## this is allowed  <- TODO: not supported yet
+				 *     b := (fun() {}) ## this is prohibited in the previous if check
-				 *     fun() {} ## this is prohibited
+				 *     (fun() {}) ## this is prohibited in the previous if check as well
+				 *     fun() {} ## this is prohibited in this if check
 				 * }
 				 */
 				hak_setsynerrbfmt(
@@ -3478,11 +3479,14 @@ static int compile_fun (hak_t* hak, hak_cnode_t* src)
 	{
 		if (is_in_class_init_scope(hak) || class_name)
 		{
-/* TODO: */
+			/* NOTE
-			/* TODO: THIS IS ALSO WRONG.
+			 *  checking simply with is_in_class_init_scope() isn't sufficient for code like this:
 			 *    class X {
-			 *    a := (fun x(){}) ## this context is also class_init_scope. so the check above isn't good enough
+			 *      a := (fun[#ci] x(){})
-			 *  } */
+			 *    }
+			 * but the prior checks prevents the function definition itself in that context.
+			 * so the simple check is just ok.
+			 */
 			if (check_fun_attr_list(hak, attr_list, &fun_type, cmd, class_name, fun_name) <= -1) return -1;
 			if (class_name) fun_type |= 0x100; /* defined in `fun class:xxx` style outside class */
 		}

lib/exec.c

@@ -3356,7 +3356,7 @@ static hak_oop_t fetch_numeric_rcv_slot (hak_t* hak, hak_oop_t rcv, hak_oow_t b1
 	hak_obj_type_t rcv_type;
 
 	rcv_type = (hak_obj_type_t)HAK_OBJ_GET_FLAGS_TYPE(rcv);
-	switch (HAK_LIKELY(rcv_type))
+	switch (rcv_type)
 	{
 		case HAK_OBJ_TYPE_CHAR:
 			w = ((hak_oop_char_t)rcv)->slot[b1];
@@ -3389,7 +3389,7 @@ static int store_into_numeric_rcv_slot (hak_t* hak, hak_oop_t rcv, hak_oow_t b1,
 	else if (hak_inttooow(hak, v, &w) <= -1) return -1;
 
 	rcv_type = (hak_obj_type_t)HAK_OBJ_GET_FLAGS_TYPE(rcv);
-	switch (HAK_LIKELY(rcv_type))
+	switch (rcv_type)
 	{
 		case HAK_OBJ_TYPE_CHAR:
 			((hak_oop_char_t)rcv)->slot[b1] = w;
@@ -3542,12 +3542,16 @@ static int execute (hak_t* hak)
 				else
 				{
 					hak_oop_t v;
+
 					v = fetch_numeric_rcv_slot(hak, rcv, b1);
+
 					if (HAK_UNLIKELY(!v))
 					{
 						if (do_throw_with_internal_errmsg(hak, fetched_instruction_pointer) >= 0) break;
 						goto oops_with_errmsg_supplement;
 					}
+
+					HAK_STACK_PUSH(hak, v);
 				}
 				break;
 			}

lib/fmt.c

@@ -317,8 +317,7 @@ static hak_bch_t* sprintn_lower (hak_bch_t* nbuf, hak_uintmax_t num, int base, h
 {
 	hak_bch_t* p;
 
-	p = nbuf;
+	p = nbuf; *p = '\0';
-	*p = '\0';
 	do {*++p = hex2ascii_lower[num % base]; } while (num /= base);
 
 	if (lenp) *lenp = p - nbuf;
@@ -329,8 +328,7 @@ static hak_bch_t* sprintn_upper (hak_bch_t* nbuf, hak_uintmax_t num, int base, h
 {
 	hak_bch_t* p;
 
-	p = nbuf;
+	p = nbuf; *p = '\0';
-	*p = '\0';
 	do { *++p = hex2ascii_upper[num % base]; } while (num /= base);
 
 	if (lenp) *lenp = p - nbuf;
@@ -512,7 +510,7 @@ static int fmt_outv (hak_t* hak, hak_fmtout_t* fmtout, va_list ap)
 	handle_percent:
 		padc = ' ';
 		width = 0; precision = 0; neg = 0; sign = 0;
-		lm_flag = 0; lm_dflag = 0; flagc = 0;
+		lm_flag = 0; lm_dflag = 0; flagc = 0; base = 10;
 		sprintn = sprintn_lower;
 
 	reswitch: