gforth/oof.fs - diff

Return to oof.fs CVS log

Up to [gforth] / gforth

version 1.1, 1996/09/19 22:17:35	version 1.3, 1996/10/13 19:56:22
Line 372 Variable last-interface 0 last-interfac	Line 372 Variable last-interface 0 last-interfac

: lastob! ( -- ) lastob @ dup	: lastob! ( -- ) lastob @ dup
BEGIN nip dup @ here cell+ 2 pick ! dup 0= UNTIL drop	BEGIN nip dup @ here cell+ 2 pick ! dup 0= UNTIL drop
dup , op! o@ lastob ! ;	dup , [ order ] op! o@ lastob ! ;

: thread, ( -- ) classlist @ , ;	: thread, ( -- ) classlist @ , ;
: var, ( -- ) methods @ , vars @ , ;	: var, ( -- ) methods @ , vars @ , ;
Line 494 Objects definitions	Line 494 Objects definitions

: implement ( interface -- )	: implement ( interface -- )
align here over , ob-interface @ , ob-interface !	align here over , ob-interface @ , ob-interface !
:ilist + @ >r get-order r> swap 1+ set-order ;	:ilist + @ >r get-order r> swap 1+ set-order 1 voc# +! ;

: inter-method, ( interface -- )	: inter-method, ( interface -- )
:ilist + @ bl word count 2dup s" '" compare	:ilist + @ bl word count 2dup s" '" compare