version 1.2, 1996/09/24 19:15:04
|
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 @ , ; |