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

Minor tweak

db4
Slava Pestov 2009-01-30 15:16:05 -06:00
parent c1347699c4
commit 43672d90cb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/constructors/constructors.factor
View File

@ -13,7 +13,7 @@ MACRO: set-slots ( slots -- quot )
[ new ] dip set-slots ; inline [ new ] dip set-slots ; inline
: define-constructor ( name class effect body -- ) : define-constructor ( name class effect body -- )
[ [ in>> ] dip '[ _ _ construct @ ] ] [ drop ] 2bi [ [ in>> '[ _ _ construct ] ] dip compose ] [ drop ] 2bi
define-declared ; define-declared ;
: CONSTRUCTOR: : CONSTRUCTOR: