Diff for /gforth/kernel/comp.fs between versions 1.77 and 1.78

version 1.77, 2006/02/19 17:27:13 version 1.78, 2006/02/25 18:28:12
Line 117  defer header ( -- ) \ gforth Line 117  defer header ( -- ) \ gforth
     align here last !      align here last !
     current @ 1 or A,   \ link field; before revealing, it contains the      current @ 1 or A,   \ link field; before revealing, it contains the
                         \ tagged reveal-into wordlist                          \ tagged reveal-into wordlist
     longstring, cfalign  [ has? f83headerstring [IF] ]
           string,
   [ [ELSE] ]
           longstring, cfalign
   [ [THEN] ]
     alias-mask lastflags cset ;      alias-mask lastflags cset ;
   
 : input-stream-header ( "name" -- )  : input-stream-header ( "name" -- )

Removed from v.1.77  
changed lines
  Added in v.1.78


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