remove code that dealt with delegates
parent
c5979caf75
commit
64be3e3f81
|
@ -207,7 +207,7 @@ DEFER: _
|
||||||
"predicate" word-prop [ dupd call assure ] curry ;
|
"predicate" word-prop [ dupd call assure ] curry ;
|
||||||
|
|
||||||
: slot-readers ( class -- quot )
|
: slot-readers ( class -- quot )
|
||||||
all-slots rest ! tail gets rid of delegate
|
all-slots
|
||||||
[ name>> reader-word 1quotation [ keep ] curry ] map concat
|
[ name>> reader-word 1quotation [ keep ] curry ] map concat
|
||||||
[ ] like [ drop ] compose ;
|
[ ] like [ drop ] compose ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue