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

[factor.git] / extra / libudev / libudev.factor

diff --git a/extra/libudev/libudev.factor b/extra/libudev/libudev.factor
index 6500a7015a5ea0888ecc0e24eadf5acb140de0ad..169c492745057d658d79ebd4ede38b098d73bf6f 100644 (file)
--- a/extra/libudev/libudev.factor
+++ b/extra/libudev/libudev.factor
@@ -95,7 +95,7 @@ FUNCTION: c-string udev_list_entry_get_value (
 
 ! Helper to iterate over all entries of a list.
 : udev_list_entry_foreach ( ... first_entry quot: ( ... x -- ... ) -- ... )
-    [ [ dup ] ] dip '[ [ @ ] keep udev_list_entry_get_next ]
+    [ [ dup ] ] dip '[ _ keep udev_list_entry_get_next ]
     while drop ; inline
 
 ! Get all list entries _as_ a list