fix bug in constructor redefinition

littledan · Jan 4, 2010 · e3ce517 · e3ce517
1 parent 8c0b11f
commit e3ce517
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/extra/constructors/constructors.factor b/extra/constructors/constructors.factor
@@ -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 ;