gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.8, 1994/09/12 19:00:36	version 1.9, 1994/09/28 17:02:50
Line 404 set-current	Line 404 set-current
execute nip	execute nip
UNLOOP EXIT	UNLOOP EXIT
endif	endif
-1 +loop	-1 s+loop
\ we did not find a type, abort	\ we did not find a type, abort
true abort" unknown type prefix" ;	true abort" unknown type prefix" ;

Line 528 set-current	Line 528 set-current
." NEXT_P1;" cr	." NEXT_P1;" cr
stores	stores
fill-tos	fill-tos
." NEXT1_P2;" cr	." NEXT_P2;" cr
." }" cr	." }" cr
cr	cr
;	;