From 867ec501e2f30a78edc86417824976941657ec9a Mon Sep 17 00:00:00 2001 From: Ulrich Hoffmann Date: Fri, 4 Oct 2019 12:37:01 +0200 Subject: [PATCH] Fix number uses and test results --- preForth/seedForthDemo.seedsource | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 . ;' -- 2.34.1