gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.52, 2003/01/20 17:07:41	version 1.53, 2003/02/06 20:42:26
Line 113 defer header ( -- ) \ gforth	Line 113 defer header ( -- ) \ gforth

: header, ( c-addr u -- ) \ gforth	: header, ( c-addr u -- ) \ gforth
name-too-long?	name-too-long?
	dup max-name-length @ max max-name-length !
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