Minor tweak

2009-01-30 15:16:05 -06:00 · 2009-01-30 15:16:05 -06:00 · 43672d90cb
parent c1347699c4
commit 43672d90cb
1 changed files with 1 additions and 1 deletions
--- 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: