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

classes.tuple: use class-of in tuple>array.

db4
John Benediktsson 2015-09-24 07:55:08 -07:00
parent be7fc6f7c9
commit 7583ffc2c9
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
core/classes/tuple/tuple-docs.factor
View File

@ -200,6 +200,7 @@ ARTICLE: "tuple-introspection" "Tuple introspection"
>tuple >tuple
tuple>array tuple>array
tuple-slots tuple-slots
slots>tuple
} }
"Tuples can be compared for slot equality even if the tuple class overrides " { $link equal? } ":" "Tuples can be compared for slot equality even if the tuple class overrides " { $link equal? } ":"
{ $subsections tuple= } { $subsections tuple= }

4
core/classes/tuple/tuple.factor
View File

@ -103,8 +103,8 @@ M: tuple-class slots>tuple ( seq class -- tuple )
bi 2each bi 2each
] keep ; ] keep ;
: tuple>array ( tuple -- array ) : tuple>array ( tuple -- seq )
[ tuple-slots ] [ layout-of first prefix ] bi ; [ tuple-slots ] [ class-of prefix ] bi ;
: >tuple ( seq -- tuple ) : >tuple ( seq -- tuple )
unclip slots>tuple ; unclip slots>tuple ;