new accessors

db4
Doug Coleman 2008-08-29 16:16:12 -05:00
parent fb27f066b1
commit 6f20caab5a
1 changed files with 2 additions and 2 deletions

View File

@ -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 ] ;