[BACK]Return to main.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/Attic/main.fs between versions 1.26 and 1.27

version 1.26, 1997/01/29 21:32:36 version 1.27, 1997/02/06 21:23:04
Line 25 Line 25
 \ : ; ( colon-sys -- )  ?struc postpone exit reveal postpone [ ; immediate  \ : ; ( colon-sys -- )  ?struc postpone exit reveal postpone [ ; immediate
 \ : :noname ( -- xt colon-sys )  here [ ' : @ ] ALiteral cfa, 0 ] ;  \ : :noname ( -- xt colon-sys )  here [ ' : @ ] ALiteral cfa, 0 ] ;
   
   Create mach-file here over 1+ allot place
   
   include errors.fs
   include extend.fs
 include search-order.fs  include search-order.fs
   
 \ include etags.fs  \ include etags.fs
Line 55  cell 2 = [IF] 32 [ELSE] 256 [THEN] KB ma Line 59  cell 2 = [IF] 32 [ELSE] 256 [THEN] KB ma
 UNLOCK ghost - drop \ ghost must exist because - would be treated as number  UNLOCK ghost - drop \ ghost must exist because - would be treated as number
 LOCK  LOCK
   
 0 AConstant forthstart  
   
 doc-off  doc-off
 include aliases.fs             \ include primitive aliases  has-prims [IF]
       include aliases.fs             \ include primitive aliases
   [ELSE]
       include primitives.fs
   [THEN]
 doc-on  doc-on
 \ include cond.fs                \ conditional compile  
 \ include patches.fs             \ include primitive patches  0 AConstant forthstart
   
 include vars.fs                \ variables and other stuff  include vars.fs                \ variables and other stuff
 include add.fs                 \ additional things  
 include errore.fs  include errore.fs
 include version.fs  include version.fs
 include kernel.fs              \ load kernel  include kernel.fs              \ load kernel
   include args.fs
   include files.fs               \ load file words
 include conditionals.fs        \ load IF and co  include conditionals.fs        \ load IF and co
 include extend.fs              \ load core-extended  
 include tools.fs               \ load tools ( .s dump )  include tools.fs               \ load tools ( .s dump )
 include toolsext.fs  include toolsext.fs
 include special.fs  
 \ include words.fs  include special.fs             \ special must be last!
 \ include wordinfo.fs  
 \ include see.fs                 \ load see  
 \ include search-order.fs  
   
 \ Setup                                                13feb93py  \ Setup                                                13feb93py
   
Removed from v.1.26  
changed lines
  Added in v.1.27

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