multi-methods: predicate-quot -> predicate-def
parent
0bdd87dace
commit
fad4a28d70
|
@ -109,7 +109,7 @@ SYMBOL: total
|
||||||
} case ;
|
} case ;
|
||||||
|
|
||||||
: (multi-predicate) ( class picker -- quot )
|
: (multi-predicate) ( class picker -- quot )
|
||||||
swap predicate-quot append ;
|
swap predicate-def append ;
|
||||||
|
|
||||||
: multi-predicate ( classes -- quot )
|
: multi-predicate ( classes -- quot )
|
||||||
dup length iota <reversed>
|
dup length iota <reversed>
|
||||||
|
|
Loading…
Reference in New Issue