assocs.extras: Move some often-used words to core

[factor.git] / basis / cpu / arm / 64 / 64.factor

diff --git a/basis/cpu/arm/64/64.factor b/basis/cpu/arm/64/64.factor
index 6335146dd3d35821ca9e83a62a76e4b1df822a19..d76f34609082fd14876e0a7822a067313bcd9ebb 100644 (file)
--- a/basis/cpu/arm/64/64.factor
+++ b/basis/cpu/arm/64/64.factor
@@ -27,7 +27,7 @@ M: arm.64 %load-immediate ( reg val -- )
     [ XZR MOVr ] [
         { 0 1 2 3 } [
             tuck -16 * shift 0xffff bitand
-        ] with map>alist [ nip 0 = ] assoc-reject
+        ] with map>alist [ 0 = ] reject-values
         unclip
         overd first2 rot MOVZ
         [ first2 rot MOVK ] with each