gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.4, 1994/07/13 19:21:07	version 1.6, 1994/08/25 15:25:33
Line 21	Line 21

warnings off	warnings off

	[IFUNDEF] vocabulary include search-order.fs [THEN]
include gray.fs	include gray.fs
include search-order.fs

100 constant max-effect \ number of things on one side of a stack effect	100 constant max-effect \ number of things on one side of a stack effect
4096 constant batch-size \ no meaning, just make sure it's >0	4096 constant batch-size \ no meaning, just make sure it's >0
Line 89 variable effect-out-end ( pointer )	Line 89 variable effect-out-end ( pointer )
2variable effect-in-size	2variable effect-in-size
2variable effect-out-size	2variable effect-out-size

variable primitive-number -8 primitive-number !	variable primitive-number -9 primitive-number !

\ for several reasons stack items of a word are stored in a wordlist	\ for several reasons stack items of a word are stored in a wordlist
\ since neither forget nor marker are implemented yet, we make a new	\ since neither forget nor marker are implemented yet, we make a new
Line 543 set-current	Line 543 set-current
endif	endif
warnings @ if	warnings @ if
." ------------ CUT HERE -------------" cr endif	." ------------ CUT HERE -------------" cr endif
r> [ ] primfilter [ 0 ] ;	r> primfilter ;