Fix display of auto-terminated line on exception

dan4thewin · Oct 12, 2024 · da30ac6 · da30ac6
1 parent 911c304
commit da30ac6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ff.boot b/ff.boot
@@ -296,7 +296,7 @@ variable hide hide on
 :^ ossetup ;
 :. _back >in@ 1- dup BEGIN tib <> drop WHILE 1- dupc@ 10- drop 0= TILL 1+ END
    swap over- type ;
-:. _auto noauto@ 0- drop 0= IF ;` THEN ;
+:. _auto noauto@ 0- drop 0= IF >in@ -- ;` THEN ;
 :. eval. >in@ tp@ 2>r over+ tp! >in! compiler _auto 2r> tp! >in! ;
 :. _eval eval. '
 :. _exec catch 0;  _back ."_<-error:_" c@+ type cr  2drop