combinators.lib:construct-slots

2007-12-30 23:59:56 -05:00 · 2007-12-30 23:59:56 -05:00 · df5fa5f239
parent bea0eb759a
commit df5fa5f239
1 changed files with 5 additions and 0 deletions
--- a/extra/combinators/lib/lib.factor
+++ b/extra/combinators/lib/lib.factor
@ -161,3 +161,8 @@ MACRO: map-call-with2 ( quots -- )
  r> length [ narray ] curry append ;

 MACRO: map-exec-with ( words -- ) [ 1quotation ] map [ map-call-with ] curry ;
+
+MACRO: construct-slots ( assoc tuple-class -- tuple ) 
+    [ construct-empty ] curry swap [
+        [ dip ] curry swap 1quotation [ keep ] curry compose
+    ] { } assoc>map concat compose ;