version 1.15, 2000/09/08 11:05:07
|
version 1.16, 2002/09/14 08:20:19
|
Line 601 Objects definitions
|
Line 601 Objects definitions
|
:ilist + @ >r get-order r> swap 1+ set-order 1 voc# +! ; |
:ilist + @ >r get-order r> swap 1+ set-order 1 voc# +! ; |
|
|
: inter-method, ( interface -- ) \ oof-interface- oof |
: inter-method, ( interface -- ) \ oof-interface- oof |
:ilist + @ bl word count 2dup s" '" compare |
:ilist + @ bl word count 2dup s" '" str= |
0= dup >r IF 2drop bl word count THEN |
dup >r IF 2drop bl word count THEN |
rot search-wordlist |
rot search-wordlist |
dup 0= abort" Not an interface method!" |
dup 0= abort" Not an interface method!" |
r> IF drop state @ IF postpone Literal THEN EXIT THEN |
r> IF drop state @ IF postpone Literal THEN EXIT THEN |