don't use summary in slots

db4
Doug Coleman 2009-06-11 20:26:49 -05:00
parent 6c2e483913
commit 50be248db0
1 changed files with 1 additions and 4 deletions

View File

@ -3,7 +3,7 @@
USING: arrays byte-arrays kernel kernel.private math namespaces
make sequences strings effects generic generic.standard
classes classes.algebra slots.private combinators accessors
words sequences.private assocs alien quotations hashtables summary ;
words sequences.private assocs alien quotations hashtables ;
IN: slots
TUPLE: slot-spec name offset class initial initial-quot read-only ;
@ -200,9 +200,6 @@ ERROR: bad-initial-value name ;
ERROR: duplicate-initial-values slot ;
M: duplicate-initial-values summary
drop "Slots can either define initial: or initial-quot:, but not both" ;
: check-duplicate-initial-values ( slot-spec -- slot-spec )
dup [ initial>> ] [ initial-quot>> ] bi and
[ duplicate-initial-values ] when ;