new accessors
parent
fb27f066b1
commit
6f20caab5a
|
@ -4,7 +4,7 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel combinators fry namespaces quotations hashtables
|
||||
sequences assocs arrays stack-checker effects math math.ranges
|
||||
generalizations macros continuations random locals ;
|
||||
generalizations macros continuations random locals accessors ;
|
||||
|
||||
IN: combinators.lib
|
||||
|
||||
|
@ -63,7 +63,7 @@ IN: combinators.lib
|
|||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
MACRO: preserving ( predicate -- quot )
|
||||
dup infer effect-in
|
||||
dup infer in>>
|
||||
dup 1+
|
||||
'[ , , nkeep , nrot ] ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue