| :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 |
