From 5ff8abaa733d6bef02f3d6cef37ea919bb35f7b5 Mon Sep 17 00:00:00 2001 From: crc Date: Thu, 3 Jan 2019 21:53:59 +0000 Subject: [PATCH] minor tweak to Matrix example FossilOrigin-Name: 12b1323959ee798f72be5a69b151028883440946afcdcb37b73c27dca1265011 --- example/Matrix.forth | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/example/Matrix.forth b/example/Matrix.forth index 3a713cf..fc2e104 100644 --- a/example/Matrix.forth +++ b/example/Matrix.forth @@ -29,7 +29,7 @@ get-next #1 -eq? [ broken ] if Test matrix, should be "contained!" thrice. ``` -#30 #20 #10 #3 #1 'tester s:keep matrix +#30 #20 #10 #3 #1 "tester matrix { tester #2 + #3 [ fetch-next swap ] times drop } [ { #10 #20 #30 } set:contains? [ 'contained! s:put sp nl ] if ] set:for-each ```