Hoi,
Just not to lie.
Buggs
Index: little_languages/jakoc
===================================================================
RCS file: /home/perlcvs/parrot/little_languages/jakoc,v
retrieving revision 1.1
diff -u -3 -p -r1.1 jakoc
--- little_languages/jakoc 2001/09/15 20:58:05 1.1
+++ little_languages/jakoc 2001/09/16 00:55:32
@@ -271,7 +271,7 @@ sub begin_if_block
printf "%-12s %-8s %s\n", "${prefix}_NEXT:", "gt", "$args[0], $args[1],
${prefix}_REDO, ${prefix}_LAST";
printf "%s_REDO:\n", $prefix;
} else {
- printf(STDERR "jako: Syntax error. Unrecognized condition in while on line
%d.\n", $line);
+ printf(STDERR "jako: Syntax error. Unrecognized condition in if on line %d.\n",
+$line);
}
}