From 5a21e0a0a4d944a7277a86a33a36b2eb7df59e3b Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Sun, 18 Oct 2020 15:22:32 +0300 Subject: print_stack improved. --- main.sts | 1 + 1 file changed, 1 insertion(+) (limited to 'main.sts') diff --git a/main.sts b/main.sts index fafbb6a..7b12bb5 100644 --- a/main.sts +++ b/main.sts @@ -138,6 +138,7 @@ set_entry float_init ; this is program with floats 0 do dup length = until swap drop 1 + od drop keylen + 4 print_stack od as langcode drop ; output language -- cgit v1.2.3