*** empty log message ***

ase/test/stx/parser.c

@@ -153,7 +153,8 @@ int xp_main (int argc, xp_char_t* argv[])
 			goto exit_program;
 		}
 
-		if (xp_stx_parser_parse_method (&parser, n, 
+		/* compile the method to n's class */
+		if (xp_stx_parser_parse_method (&parser, XP_STX_CLASS(&stx,n), 
 			(void*)XP_TEXT("test.st")) == -1) {
 			xp_printf (XP_TEXT("parser error <%s>\n"), 
 				xp_stx_parser_error_string (&parser));
@@ -171,8 +172,14 @@ int xp_main (int argc, xp_char_t* argv[])
 				xp_stx_parser_error_string (&parser));
 		}
 
+		if (xp_stx_parser_parse_method (&parser, stx.class_string,
+			(void*)XP_TEXT("test3.st")) == -1) {
+			xp_printf (XP_TEXT("parser error <%s>\n"), 
+				xp_stx_parser_error_string (&parser));
+		}
+
 		xp_printf (XP_TEXT("\n== Decoded Methods ==\n"));
-		if (xp_stx_decode(&stx, n) == -1) {
+		if (xp_stx_decode(&stx, XP_STX_CLASS(&stx,n)) == -1) {
 			xp_printf (XP_TEXT("parser error <%s>\n"), 
 				xp_stx_parser_error_string (&parser));
 		}
@@ -183,8 +190,15 @@ int xp_main (int argc, xp_char_t* argv[])
 				xp_stx_parser_error_string (&parser));
 		}
 
+		xp_printf (XP_TEXT("\n== Decoded Methods for String ==\n"));
+		if (xp_stx_decode(&stx, stx.class_string) == -1) {
+			xp_printf (XP_TEXT("parser error <%s>\n"), 
+				xp_stx_parser_error_string (&parser));
+		}
+
 		xp_printf (XP_TEXT("== Running the main method ==\n"));
-		m = xp_stx_lookup_method (&stx, n, XP_TEXT("main"));
+		m = xp_stx_lookup_method (
+			&stx, XP_STX_CLASS(&stx,n), XP_TEXT("main"), xp_false);
 		if (m == stx.nil) {	
 			xp_printf (XP_TEXT("cannot lookup method main\n"));
 		}

ase/test/stx/test.st

@@ -9,6 +9,5 @@ main
 
 	a := #abc print: 123 and: 2345.
 	#abc print: a and: a.
-	super print: a and: a.
 	1234567.
 	^nil.

ase/test/stx/test1.st

@@ -4,5 +4,6 @@ print: a1 and: a2
 	t1 := #abcdefg.
 	"a1 := 2341 arguments are not assignable"
 	t1 prim2: a2.
-	self prim2: 2189.
+	super prim2: 999999.
+	self prim2: 999999.
 	^67891.

ase/test/stx/test3.st

@@ -0,0 +1,2 @@
+prim2: n
+	<primitive: 20>