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

fix bug in constructor redefinition

db4
Doug Coleman 2010-01-04 14:24:13 -06:00
parent 96c4b1a672
commit e675288577
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/constructors/constructors.factor
View File

@ -49,8 +49,8 @@ MACRO:: slots>constructor ( class slots -- quot )
reverse? [ reverse ] when
'[ @ _ [ execute( obj -- obj ) ] each ] effect define-declared ;
: scan-constructor ( -- class word )
scan-word [ name>> "<" ">" surround create-in ] keep ;
: scan-constructor ( -- word class )
scan-word [ name>> "<" ">" surround create-in dup reset-generic ] keep ;
: parse-constructor ( -- class word effect def )
scan-constructor complete-effect parse-definition ;