factor: trim using lists

[factor.git] / extra / changer / changer.factor

diff --git a/extra/changer/changer.factor b/extra/changer/changer.factor
index 4f14da19091531f1cb38b902a23e533294f57437..3d007797ccf99374dabfb3ed2ef4d6ee652f54f8 100644 (file)
--- a/extra/changer/changer.factor
+++ b/extra/changer/changer.factor
@@ -1,11 +1,11 @@
 ! Copyright (C) 2015 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: fry kernel lexer macros quotations sequences words ;
+USING: kernel lexer quotations sequences words ;
 IN: changer
 
 MACRO: inline-changer ( name -- quot' )
     [ ">>" append ] [ ">>" prepend ] bi
     [ "accessors" lookup-word 1quotation ] bi@
-    '[ over [ [ @ ] dip call ] dip swap @ ] ;
+    '[ over [ _ dip call ] dip swap @ ] ;
 
 SYNTAX: change: scan-token '[ _ inline-changer ] append! ;