[ over assumed [ compile-engine ] with-variable ] assoc-map ;
: direct-dispatch-table ( assoc n -- table )
- default get <array> <enum> swap assoc-union! seq>> ;
+ default get <array> <enumerated> swap assoc-union! seq>> ;
: tag-number ( class -- n ) "type" word-prop ;
tuple assumed [
echelons>> compile-engines
dup keys supremum 1 + f <array>
- <enum> swap assoc-union! seq>>
+ <enumerated> swap assoc-union! seq>>
] with-variable ;
PREDICATE: predicate-engine-word < word "owner-generic" word-prop ;