Diff for /gforth/kernel/int.fs between versions 1.190 and 1.191

version 1.190, 2012/07/20 19:34:27 version 1.191, 2012/07/23 14:15:52
Line 1068  Defer mark-end Line 1068  Defer mark-end
     [ [ELSE] ] r> >tib !      [ [ELSE] ] r> >tib !
     [ [THEN] ] ;      [ [THEN] ] ;
   
   : do-execute ( xt -- ) \ Gforth
       \G C calling us
       catch dup IF  DoError cr  THEN  (bye) ;
   
 \ \ Cold Boot                                           13feb93py  \ \ Cold Boot                                           13feb93py
   
 : gforth ( -- )  : gforth ( -- )
Line 1113  Defer 'cold ( -- ) \ gforth  tick-cold Line 1117  Defer 'cold ( -- ) \ gforth  tick-cold
     loadline off      loadline off
 [ [THEN] ]  [ [THEN] ]
     bootmessage      bootmessage
     quit ;      1 (bye) ;
   
 has? new-input 0= [IF]  has? new-input 0= [IF]
 : clear-tibstack ( -- )  : clear-tibstack ( -- )
Line 1172  has? new-input 0= [IF] Line 1176  has? new-input 0= [IF]
     cold      cold
 [ [THEN] ]  [ [THEN] ]
 [ has? os [IF] ]  [ has? os [IF] ]
     1 (bye) \ !! determin exit code from throw code?      -1 (bye) \ !! determin exit code from throw code?
 [ [THEN] ]  [ [THEN] ]
 ;  ;
   

Removed from v.1.190  
changed lines
  Added in v.1.191


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>