test documentation

diff --git a/msp4th/tests.4th b/msp4th/tests.4th
index f3e4ac2f9e314dfff790d017031e521cb8bb2e14..dc423f1531959b3d5eb80e83816b4662261ab9e2 100644 (file)
--- a/msp4th/tests.4th
+++ b/msp4th/tests.4th
@@ -1,17 +1,18 @@
 \ vim: ft=forth
-: ..
+: .. ( -- ) \ print TOS without consuming
     dup . ;
 
-: fail ( -- )
+: fail ( -- ) \ print "FAIL"
     0x46 emit 0x41 emit 0x49 emit 0x4c emit cr ;
 
 : cmp ( a b -- )
     == not if fail s. then ;
 
-: scmp ( x*2n n -- ) \ verify stack contents match
+: scmp ( x*2n n -- ) \ verify n stack entries match, or are repeated
     0 swap do
-    i roll cmp
-    -1 +loop ;
+        i roll cmp
+        -1
+    +loop ;
 5 6 7 8 5 6 7 8 4 scmp
 
 \    case  1: // bye