cvsuser 02/06/11 19:57:56
Modified: . assemble.pl
Log:
Woops, bad eyes. I read ':' for ';' in the PDD. Fixed the problem, though.
Revision Changes Path
1.69 +3 -3 parrot/assemble.pl
Index: assemble.pl
===================================================================
RCS file: /cvs/public/parrot/assemble.pl,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -w -r1.68 -r1.69
--- assemble.pl 11 Jun 2002 00:53:55 -0000 1.68
+++ assemble.pl 12 Jun 2002 02:57:56 -0000 1.69
@@ -708,8 +708,8 @@
push @{$_->[0]}, [lc(substr($1,0,1)),$1];
}
#
- # XXX '[k]' should be the result of one or more chained '[k:I3]' type
- # XXX arguments. '[k:I3:N0]' gets transformed to '[k:N0]', then just '[k]'
+ # XXX '[k]' should be the result of one or more chained '[k;I3]' type
+ # XXX arguments. '[k;I3;N0]' gets transformed to '[k;N0]', then just '[k]'
#
elsif($temp=~s/^\[k\]//) {
}
@@ -717,7 +717,7 @@
# XXX Nip off the first keyed register and replace the '[k' at the start
# XXX of the string, so we can nip off another argument.
#
- elsif($temp=~s/^\[k:($reg_re)/\[k/) {
+ elsif($temp=~s/^\[k;($reg_re)/\[k/) {
$suffixes .= "_k";
push @{$_->[0]}, ['k',$1];
}
