diff --git a/core/slots/slots.factor b/core/slots/slots.factor index 9db26846d0..c8be08e79b 100755 --- a/core/slots/slots.factor +++ b/core/slots/slots.factor @@ -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 ;