gforth/objects.fs - diff

Return to objects.fs CVS log

Up to [gforth] / gforth

version 1.6, 1997/07/31 16:17:10	version 1.8, 1998/10/07 18:29:38
Line 211 variable last-interface-offset 0 last-in	Line 211 variable last-interface-offset 0 last-in
: interface ( -- ) \ objects	: interface ( -- ) \ objects
\g starts an interface definition.	\g starts an interface definition.
interface% %allot >r	interface% %allot >r
0 0 r@ interface-map 2!	r@ current-interface !
	current-interface 1 cells save-mem r@ interface-map 2!
-1 cells last-interface-offset +!	-1 cells last-interface-offset +!
last-interface-offset @ r@ interface-offset !	last-interface-offset @ r@ interface-offset !
0 r@ interface-map-offset !	0 r> interface-map-offset ! ;
r> current-interface ! ;

: end-interface-noname ( -- interface ) \ objects	: end-interface-noname ( -- interface ) \ objects
\g ends an interface definition. The resulting interface is	\g ends an interface definition. The resulting interface is
Line 364 variable public-wordlist	Line 364 variable public-wordlist
POSTPONE to-this	POSTPONE to-this
POSTPONE ; ; immediate	POSTPONE ; ; immediate

: catch ( ... xt -- ... n )	: catch ( ... xt -- ... n ) \ exception
\ make it safe to call CATCH within a method.	\ make it safe to call CATCH within a method.
\ should also be done with all words containing CATCH.	\ should also be done with all words containing CATCH.
this >r catch r> to-this ;	this >r catch r> to-this ;