Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-09-03 17:24:22 -05:00
commit 21bfcddfd7
3 changed files with 3 additions and 3 deletions

View File

@ -30,7 +30,7 @@ HELP: <mirror> ( object -- mirror )
"TUPLE: circle center radius ;"
"C: <circle> circle"
"{ 100 50 } 15 <circle> <mirror> >alist ."
"{ { \"delegate\" f } { \"center\" { 100 50 } } { \"radius\" 15 } }"
"{ { \"center\" { 100 50 } } { \"radius\" 15 } }"
}
} ;

View File

@ -207,7 +207,7 @@ DEFER: _
"predicate" word-prop [ dupd call assure ] curry ;
: slot-readers ( class -- quot )
all-slots rest ! tail gets rid of delegate
all-slots
[ name>> reader-word 1quotation [ keep ] curry ] map concat
[ ] like [ drop ] compose ;

View File

@ -127,4 +127,4 @@ M: sender-in-prefix irc-message-sender ( sender-in-prefix -- sender )
} case
[ [ tuple-slots ] [ parameters>> ] bi append ] dip
[ all-slots over [ length ] bi@ min head >quotation ] keep
'[ @ , boa nip ] call ;
'[ @ , boa ] call ;