Minor tweak

diff --git a/extra/constructors/constructors.factor b/extra/constructors/constructors.factor
index 30d286eb9638f2599f45aa77acd691c098b3b66b..2eab91310ff7f37d0d70114d4142bfde6e4b4b9e 100644 (file)
--- a/extra/constructors/constructors.factor
+++ b/extra/constructors/constructors.factor
@@ -13,7 +13,7 @@ MACRO: set-slots ( slots -- quot )
     [ new ] dip set-slots ; inline
 
 : define-constructor ( name class effect body -- )
-    [ [ in>> ] dip '[ _ _ construct @ ] ] [ drop ] 2bi
+    [ [ in>> '[ _ _ construct ] ] dip compose ] [ drop ] 2bi
     define-declared ;
 
 : CONSTRUCTOR: