basis/extra: removing '[ @ ] in favor of _ for fried quotations.

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

diff --git a/extra/changer/changer.factor b/extra/changer/changer.factor
index 4f14da19091531f1cb38b902a23e533294f57437..48a8ea9dfff2277289cd825db79ec22cb704ec71 100644 (file)
--- a/extra/changer/changer.factor
+++ b/extra/changer/changer.factor
@@ -6,6 +6,6 @@ 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! ;