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