steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/slots/slots.factor
View File

@ -3,7 +3,7 @@
USING: arrays byte-arrays kernel kernel.private math namespaces USING: arrays byte-arrays kernel kernel.private math namespaces
make sequences strings effects generic generic.standard make sequences strings effects generic generic.standard
classes classes.algebra slots.private combinators accessors classes classes.algebra slots.private combinators accessors
words sequences.private assocs alien quotations hashtables summary ; words sequences.private assocs alien quotations hashtables ;
IN: slots IN: slots
TUPLE: slot-spec name offset class initial initial-quot read-only ; 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 ; 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 ) : check-duplicate-initial-values ( slot-spec -- slot-spec )
dup [ initial>> ] [ initial-quot>> ] bi and dup [ initial>> ] [ initial-quot>> ] bi and
[ duplicate-initial-values ] when ; [ duplicate-initial-values ] when ;