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

Fix tuple class redefinition not updating constructor

db4
Slava Pestov 2008-01-12 18:00:28 -05:00
parent cece726e54
commit 1a43d30d54
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
core/inference/transforms/transforms.factor
View File

@ -61,6 +61,11 @@ M: pair (bitfield-quot) ( spec -- quot )
\ set-slots [ <reversed> [get-slots] ] 1 define-transform \ set-slots [ <reversed> [get-slots] ] 1 define-transform
\ construct-boa [ : [construct] ( word quot -- newquot )
dup tuple-size [ <tuple-boa> ] 2curry >r dup +inlined+ depends-on dup tuple-size r> 2curry ;
] 1 define-transform
\ construct-boa
[ [ <tuple-boa> ] [construct] ] 1 define-transform
\ construct-empty
[ [ <tuple> ] [construct] ] 1 define-transform

2
core/tuples/tuples.factor
View File

@ -59,7 +59,7 @@ M: tuple class class-of-tuple ;
] unless ] unless
] when 2drop ; ] when 2drop ;
GENERIC: tuple-size ( class -- size ) foldable GENERIC: tuple-size ( class -- size )
M: tuple-class tuple-size "slot-names" word-prop length 2 + ; M: tuple-class tuple-size "slot-names" word-prop length 2 + ;