From bbc3b2377f4213980901d03d69a7ab1b99079617 Mon Sep 17 00:00:00 2001
From: Walter Bender <walter@walter-laptop.(none)>
Date: Thu, 24 Sep 2009 18:45:36 +0000
Subject: fixed push/pop bug

---
diff --git a/taexportlogo.py b/taexportlogo.py
index 058f553..2fb22bf 100644
--- a/taexportlogo.py
+++ b/taexportlogo.py
@@ -308,7 +308,7 @@ tasetshade :shade \r"
          code = "to taarc :a :r\rrepeat round :a [right 1 forward (" +\
                 str(c) + " * :r)]\rend\r" + code
     if heap: # add psuedo push and pop
-         code = "to tapush :foo\routput fput :foo :taheap\rend\r" + \
+         code = "to tapush :foo\rmake \"taheap fput :foo :taheap\rend\r" + \
              "to tapop\rif emptyp :taheap [stop]\rmake \"tmp first :taheap\r" +\
              "make \"taheap butfirst :taheap\routput :tmp\rend\r" + \
              "to taclearheap\rmake \"taheap []\rend\r" + \
--
cgit v0.9.1