Clean up math combination
parent
53c1ff1cc8
commit
333bf9ce16
|
@ -58,16 +58,15 @@ TUPLE: no-math-method left right generic ;
|
|||
2drop object-method
|
||||
] if ;
|
||||
|
||||
: math-vtable* ( picker max quot -- quot )
|
||||
: math-vtable ( picker quot -- quot )
|
||||
[
|
||||
rot , \ tag ,
|
||||
[ >r [ bootstrap-type>class ] map r> map % ] { } make ,
|
||||
>r
|
||||
, \ tag ,
|
||||
num-tags get [ bootstrap-type>class ]
|
||||
r> compose map ,
|
||||
\ dispatch ,
|
||||
] [ ] make ; inline
|
||||
|
||||
: math-vtable ( picker quot -- quot )
|
||||
num-tags get swap math-vtable* ; inline
|
||||
|
||||
TUPLE: math-combination ;
|
||||
|
||||
M: math-combination make-default-method
|
||||
|
|
Loading…
Reference in New Issue