We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 911c304 commit da30ac6Copy full SHA for da30ac6
ff.boot
@@ -296,7 +296,7 @@ variable hide hide on
296
:^ ossetup ;
297
:. _back >in@ 1- dup BEGIN tib <> drop WHILE 1- dupc@ 10- drop 0= TILL 1+ END
298
swap over- type ;
299
-:. _auto noauto@ 0- drop 0= IF ;` THEN ;
+:. _auto noauto@ 0- drop 0= IF >in@ -- ;` THEN ;
300
:. eval. >in@ tp@ 2>r over+ tp! >in! compiler _auto 2r> tp! >in! ;
301
:. _eval eval. '
302
:. _exec catch 0; _back ."_<-error:_" c@+ type cr 2drop
0 commit comments