version 1.1, 1996/09/19 22:17:35
|
version 1.2, 1996/09/24 19:15:04
|
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 |