fix relative jump bug

2022-05-03 21:22:32 -04:00 · 2022-05-03 21:22:32 -04:00 · 5a2fa6e1eb
parent 210ab31b6e
commit 5a2fa6e1eb
1 changed files with 2 additions and 1 deletions
--- a/femto.tal
+++ b/femto.tal
@ -1332,7 +1332,8 @@

 ( ESC [ 1 m $ ESC [ 0 m )
@emit-red-dollar ( -> )
-    ,emit-red JSR emit-$ ,emit-reset JMP2
+(    ,emit-red JSR emit-$ ,emit-reset JMP2 )
+    ,emit-red JSR emit-$ ,emit-reset JMP

 ( ESC [ 3 $x ; 7 m )
 ( $x is 0-7 )