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

[factor.git] / extra / mongodb / operations / operations.factor

diff --git a/extra/mongodb/operations/operations.factor b/extra/mongodb/operations/operations.factor
index 9cedd7bb4c2e6bedc9faac25a7a5fb279bf06546..7aaea3d6af37c48ce00d3dc30a1823f05e012dfb 100644 (file)
--- a/extra/mongodb/operations/operations.factor
+++ b/extra/mongodb/operations/operations.factor
@@ -84,7 +84,7 @@ PRIVATE>
 : (write-message) ( message quot -- )
     [ connection-buffer dup ] 2dip
     '[
-        [ _ [ write-header ] [ @ ] bi ] with-length-prefix
+        [ _ [ write-header ] _ bi ] with-length-prefix
     ] with-output-stream* write flush ; inline
 
 :: build-query-object ( query -- selector )