logic.examples.money: use lnth and leach.

diff --git a/extra/logic/examples/money/money.factor b/extra/logic/examples/money/money.factor
index 110f3df1890d773736f1d9b8d983b755b6663bd8..02b9ffefb1ee2c20ca62c7647508c478c5c9ee00 100644 (file)
--- a/extra/logic/examples/money/money.factor
+++ b/extra/logic/examples/money/money.factor
@@ -46,15 +46,15 @@ LOGIC-VARS: S E N D M O R Y A L G B T
 
 :: S-and-M-can't-be-zero ( seq -- seq' )
     seq [| hash |
-         1 hash N1 of list>array nth 0 = not
-         1 hash N2 of list>array nth 0 = not and
+         1 hash N1 of lnth 0 = not
+         1 hash N2 of lnth 0 = not and
     ] filter ;
 
 :: print-puzzle ( hash-array -- )
     hash-array
     [| hash |
-     "   " printf hash N1 of list>array [ "%d " printf ] each nl
-     "+  " printf hash N2 of list>array [ "%d " printf ] each nl
+     "   " printf hash N1 of [ "%d " printf ] leach nl
+     "+  " printf hash N2 of [ "%d " printf ] leach nl
      "----------------" printf nl
-     "   " printf hash N  of list>array [ "%d " printf ] each nl nl
+     "   " printf hash N  of [ "%d " printf ] leach nl nl
     ] each ;