Merge branch 'master' of git://factorcode.org/git/factor
commit
21bfcddfd7
|
@ -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 } }"
|
||||
}
|
||||
} ;
|
||||
|
||||
|
|
|
@ -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 ;
|
||||
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue