9 lines
215 B
Text
9 lines
215 B
Text
Checks for existence of "bloop" and "n:abs"
|
|
|
|
~~~
|
|
: executeByName (s-)
|
|
d:lookup [ d:xt fetch ] [ d:class fetch ] bi call ;
|
|
|
|
'bloop 'n:abs [ find nip ] bi@ and
|
|
[ 'bloop executeByName 'n:abs executeByName ] if
|
|
~~~
|