From e7bc8f97c763a8fa31c2c14a4b437c6fd9502c6a Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Sun, 18 Oct 2020 01:01:03 +0300
Subject: Fix.

---
 main.sts | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'main.sts')

diff --git a/main.sts b/main.sts
index c18d869..ec3592f 100644
--- a/main.sts
+++ b/main.sts
@@ -45,19 +45,18 @@ defword checktext
             checktext.count @ 1 + checktext.count !
         fi drop
     dup 0 = untilod drop
+    1b print_stack newline sys_write
 ; ZERO DIVISION SHALL NOT PASS
 checktext.count 0 = if drop
     drop drop drop drop drop  drop drop drop drop drop  drop drop drop
     drop drop drop drop drop  drop drop drop drop drop  drop drop drop
 0 exit fi
-    checktext.count @ print_hex newline sys_write
     ; normalize:
     0 do dup 1a = until
             dup word_size mul checktext.fr + dup @ float_iload
             checktext.count float_iload
         float_div float_fstore swap !
     1 + od drop
-    1a print_stack newline sys_write
         ; Decide if text is real:
     freq_eng calcdist if 1 else
     0 fi
-- 
cgit v1.2.3