(hairy-local-allot) ( obj -- quot )
Vocabulary
alien.data.private
Definition
USING:
kernel
macros
sequences
;
IN:
alien.data.private
MACRO:
(hairy-local-allot)
( obj -- quot )
dup
hairy-local-allot?
[
first3
nip
[hairy-local-allot]
]
[
[
(simple-local-allot)
]
curry
]
if
;