@@ 779,8 779,6 @@ JMP2r
"STH2k $1 "LDAr $1 =ldaksth
"#ff $1 "NEQ $1 =inc
"DUP2 $1 "NIP $1 =dup
- "#__ $1 "#__ $1 =combine
- "#__ $1 "LIT $1 =combine
";__ $1 "STH2 $1 =unstashed
".__ $1 "STH $1 =unstashed
"#__ $1 "STH $1 =unstashed
@@ 802,6 800,7 @@ JMP2r
( static )
"<static2> $1 "<ari1-2x> $1 =static
"<static1> $1 "<ari1-1x> $1 =static
+ "<static1> $1 "<static1> $1 =combine
&end
@rules3
@@ 844,5 843,8 @@ JMP2r
"LIT $1 "<char> $1 "<ari1-1x> $1 =static
"DUP $1 "<static1> $1 "SWP $1 =00ovr
"DUP2 $1 "<static2> $1 "SWP2 $1 =0000ovr2
+ ( combine literals )
+ "LIT $1 "<char> $1 "<static1> $1 =combine
+ "<static1> $1 "LIT $1 "<char> $1 =combine
&end