[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.38 and 1.39

version 1.38, Sat Oct 30 15:48:17 1999 UTC version 1.39, Sat Nov 6 15:01:17 1999 UTC
Line 602 
Line 602 
         [ [THEN] ]          [ [THEN] ]
     refill drop ;      refill drop ;
   
 : (quit)  : (quit) ( -- )
   BEGIN  .status cr (query) interpret prompt  AGAIN ;      \ exits only through THROW etc.
       sp0 @ cell - handler @ &12 + ! \ !! kludge: fix the stack pointer
       \ stored in the system's CATCH frame, so the stack depth will be 0
       \ after the next THROW it catches (it may be off due to BOUNCEs or
       \ because process-args left something on the stack)
       BEGIN
           .status cr (query) interpret prompt
       AGAIN ;
   
 ' (quit) IS 'quit  ' (quit) IS 'quit
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help