[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.4 and 1.5

version 1.4, Wed Jul 8 19:55:03 1998 UTC version 1.5, Tue Jul 28 08:49:35 1998 UTC
Line 429 
Line 429 
 : prompt        state @ IF ."  compiled" EXIT THEN ."  ok" ;  : prompt        state @ IF ."  compiled" EXIT THEN ."  ok" ;
   
 : (Query)  ( -- )  : (Query)  ( -- )
     loadfile off  blk off  refill drop ;      loadfile off  blk off loadline off refill drop ;
   
 : (quit)  BEGIN  .status cr (query) interpret prompt  AGAIN ;  : (quit)  BEGIN  .status cr (query) interpret prompt  AGAIN ;
   
Line 520 
Line 520 
 ' (DoError) IS DoError  ' (DoError) IS DoError
   
 : quit ( ?? -- ?? ) \ core  : quit ( ?? -- ?? ) \ core
     rp0 @ rp! handler off >tib @ >r      rp0 @ rp! handler off clear-tibstack >tib @ >r
     BEGIN      BEGIN
         [ has? compiler [IF] ]          [ has? compiler [IF] ]
         postpone [          postpone [
Line 575 
Line 575 
     bootmessage      bootmessage
     loadline off quit ;      loadline off quit ;
   
 : boot ( path **argv argc -- )  : clear-tibstack ( -- )
     main-task up!  
 [ has? os [IF] ]  
     stdout TO outfile-id  
 \ !! [ [THEN] ]  
 \ !! [ has? file [IF] ]  
     argc ! argv ! pathstring 2!  
 [ [THEN] ]  
     sp@ sp0 !  
 [ has? glocals [IF] ]  [ has? glocals [IF] ]
     lp@ forthstart 7 cells + @ -      lp@ forthstart 7 cells + @ -
 [ [ELSE] ]  [ [ELSE] ]
Line 593 
Line 585 
     sp@ $40 +      sp@ $40 +
     [ [THEN] ]      [ [THEN] ]
 [ [THEN] ]  [ [THEN] ]
     dup >tib ! tibstack ! #tib off >in off      dup >tib ! tibstack ! #tib off >in off ;
   
   : boot ( path **argv argc -- )
       main-task up!
   [ has? os [IF] ]
       stdout TO outfile-id
   \ !! [ [THEN] ]
   \ !! [ has? file [IF] ]
       argc ! argv ! pathstring 2!
   [ [THEN] ]
       sp@ sp0 !
       clear-tibstack
     rp@ rp0 !      rp@ rp0 !
 [ has? floating [IF] ]  [ has? floating [IF] ]
     fp@ fp0 !      fp@ fp0 !

Generate output suitable for use with a patch program
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help