diff --git a/src/ccmeta.leg b/src/ccmeta.leg index 87e33c0..795b3cc 100644 --- a/src/ccmeta.leg +++ b/src/ccmeta.leg @@ -2326,7 +2326,6 @@ mvalue = ( i:META_IDENT { i= newGetVariable(i) } ( a:meta_argumentList { ) | META_LPAREN ( i:meta_exp ) META_RPAREN ) { $$= eval(globals, i) } - #) { i = eval(globals, i); puts("mvalue-yylval");println(i);$$= i } mstmts = ( s:eval_stmt )* META_RCB { $$= s } # return the last stmt diff --git a/src/tests/tests-parsimony/toFix/realObjectPF.c b/src/tests/tests-parsimony/realObjectPF.c similarity index 90% rename from src/tests/tests-parsimony/toFix/realObjectPF.c rename to src/tests/tests-parsimony/realObjectPF.c index 4e7b573..8242bfb 100644 --- a/src/tests/tests-parsimony/toFix/realObjectPF.c +++ b/src/tests/tests-parsimony/realObjectPF.c @@ -26,5 +26,9 @@ int main() { oop p = newPoint(3, 4); + // @send p magnitude(); + + // @send p getX(); + return 0; } \ No newline at end of file diff --git a/src/tests/tests-parsimony/toFix/realObjectPF.out b/src/tests/tests-parsimony/realObjectPF.out similarity index 94% rename from src/tests/tests-parsimony/toFix/realObjectPF.out rename to src/tests/tests-parsimony/realObjectPF.out index 29dc8d5..dbfa178 100644 --- a/src/tests/tests-parsimony/toFix/realObjectPF.out +++ b/src/tests/tests-parsimony/realObjectPF.out @@ -1,3 +1,7 @@ +// This example serves to illustrate the possibility +// of adding the object aspect to C +// using the parseFrom primitive. + #include #include #include @@ -137,9 +141,9 @@ int main() addMethod(_class_Point, _selector_getX, (method_t) Point_getX); oop p = newPoint(3, 4); - send(p, magnitude); - - send(p, getX); + // @send p magnitude(); + + // @send p getX(); return 0; } \ No newline at end of file