Skip to content

Commit da30ac6

Browse files
committed
Fix display of auto-terminated line on exception
1 parent 911c304 commit da30ac6

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

ff.boot

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -296,7 +296,7 @@ variable hide hide on
296296
:^ ossetup ;
297297
:. _back >in@ 1- dup BEGIN tib <> drop WHILE 1- dupc@ 10- drop 0= TILL 1+ END
298298
swap over- type ;
299-
:. _auto noauto@ 0- drop 0= IF ;` THEN ;
299+
:. _auto noauto@ 0- drop 0= IF >in@ -- ;` THEN ;
300300
:. eval. >in@ tp@ 2>r over+ tp! >in! compiler _auto 2r> tp! >in! ;
301301
:. _eval eval. '
302302
:. _exec catch 0; _back ."_<-error:_" c@+ type cr 2drop

0 commit comments

Comments
 (0)