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

variants: simplify M\ variant-class initial-value*.

db4
John Benediktsson 2014-11-30 09:07:11 -08:00
parent e12d4fba4c
commit c8feb479cb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/variants/variants.factor
View File

@ -8,8 +8,9 @@ IN: variants
PREDICATE: variant-class < mixin-class "variant?" word-prop ; PREDICATE: variant-class < mixin-class "variant?" word-prop ;
M: variant-class initial-value* M: variant-class initial-value*
dup members [ drop f f ] members [ f f ] [
[ nip first dup word? [ t ] [ initial-value* ] if ] if-empty ; first dup word? [ t ] [ initial-value* ] if
] if-empty ;
: define-tuple-class-and-boa-word ( class superclass slots -- ) : define-tuple-class-and-boa-word ( class superclass slots -- )
pick [ define-tuple-class ] dip pick [ define-tuple-class ] dip