core: Add the shuffler words but without primitives.

[factor.git] / extra / cpu / 8080 / test / test.factor

diff --git a/extra/cpu/8080/test/test.factor b/extra/cpu/8080/test/test.factor
index de093ac059f82a462f8b0a8ba120af7538ade6b0..d6599f7a5d475200234617f6c45b47905d12b95a 100644 (file)
--- a/extra/cpu/8080/test/test.factor
+++ b/extra/cpu/8080/test/test.factor
@@ -55,7 +55,7 @@ IN: cpu.8080.test
     224 [
       32 [
         over 32 * over +  0x2400 + ! cpu h w addr
-        [ pick ] dip swap ram>> nth [
+        reach ram>> nth [
           [
             " 0 0 0" write
           ] [