From a94041796c0baffdf575a1ed340e1c1fa685c5e9 Mon Sep 17 00:00:00 2001 From: Adrian Kummerländer Date: Fri, 21 Apr 2017 13:31:54 +0000 Subject: Fix stack polution bug in fizzbuzz example --- example/fizzbuzz.slang | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'example') diff --git a/example/fizzbuzz.slang b/example/fizzbuzz.slang index 653c180..5693c9a 100644 --- a/example/fizzbuzz.slang +++ b/example/fizzbuzz.slang @@ -7,7 +7,7 @@ § buzz? @ 5 % 0 = ; § fizzbuzz_or_fizz buzz? if fizzbuzz then fizz else . pop ; -§ buzz_or_print dup buzz? if buzz then @ else . pop ; +§ buzz_or_print dup buzz? if pop buzz then @ else . pop ; § branch dup fizz? if fizzbuzz_or_fizz then buzz_or_print else ; -- cgit v1.2.3