From: Ulrich Hoffmann <uho@xlerb.de>
Date: Fri, 4 Oct 2019 10:37:01 +0000 (+0200)
Subject: Fix number uses and test results
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=867ec501e2f30a78edc86417824976941657ec9a;p=preForth.git

Fix number uses and test results
---

diff --git a/preForth/seedForthDemo.seedsource b/preForth/seedForthDemo.seedsource
index ac546c4..b20be69 100644
--- a/preForth/seedForthDemo.seedsource
+++ b/preForth/seedForthDemo.seedsource
@@ -350,17 +350,17 @@ t{ greeting nip -> 16 # }t
     WHILE
       dup
     WHILE
-      >r >r  over c@ over c@ - ?dup IF 0< dup + 1 + nip nip r> drop r> drop unnest THEN
+      >r >r  over c@ over c@ - ?dup IF 0< dup + 1 #, + nip nip r> drop r> drop unnest THEN
       1+ swap 1+ swap
       r> 1- r> 1-
     REPEAT
-      -1
+      -1 #,
     ELSE
-      dup 0= IF 0 ELSE 1 THEN
+      dup 0= IF 0 #, ELSE 1 #, THEN
     THEN >r 2drop 2drop r> ;'
 
-t{ wrong count  wrong count compare     ->  0 }t
-t{ wrong count  incorrect count compare -> -1 }t  
+t{ wrong count  wrong     count compare -> 0 # }t
+t{ wrong count  incorrect count compare -> 1 # }t  
 
 ': .s ( i*x -- i*x )  
     depth 0= ?exit  >r .s r> dup . ;'