[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.147 and 1.148

version 1.147, Mon Apr 10 09:24:51 2006 UTC version 1.148, Sun Apr 30 12:12:57 2006 UTC
Line 29 
Line 29 
 require ./nio.fs        \ . <# ...  require ./nio.fs        \ . <# ...
 require ./errore.fs     \ .error ...  require ./errore.fs     \ .error ...
 require kernel/version.fs       \ version-string  require kernel/version.fs       \ version-string
   has? ec 0= [IF]
 require ./../chains.fs  require ./../chains.fs
   [THEN]
   
 has? new-input 0= [IF]  has? new-input 0= [IF]
 : tib ( -- c-addr ) \ core-ext t-i-b  : tib ( -- c-addr ) \ core-ext t-i-b
Line 1034 
Line 1036 
 \ hook (deferred word) for things to do right before interpreting the  \ hook (deferred word) for things to do right before interpreting the
 \ command-line arguments  \ command-line arguments
 ' noop IS 'cold  ' noop IS 'cold
 [THEN]  
   
 AVariable init8 NIL init8 !  AVariable init8 NIL init8 !
   [THEN]
   
 : cold ( -- ) \ gforth  : cold ( -- ) \ gforth
     [ has? backtrace [IF] ]      [ has? backtrace [IF] ]
Line 1048 
Line 1050 
 [ has? ec 0= [IF] ]  [ has? ec 0= [IF] ]
     set-encoding-fixed-width      set-encoding-fixed-width
     'cold      'cold
 [ [THEN] ]  
     init8 chainperform      init8 chainperform
   [ [THEN] ]
 [ has? file [IF] ]  [ has? file [IF] ]
     process-args      process-args
     loadline off      loadline off

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help