diff options
author | Walter Bender <walter@walter-laptop.(none)> | 2009-09-24 18:45:36 (GMT) |
---|---|---|
committer | Walter Bender <walter@walter-laptop.(none)> | 2009-09-24 18:45:36 (GMT) |
commit | bbc3b2377f4213980901d03d69a7ab1b99079617 (patch) | |
tree | 7e6a560e8450d1e7ff7f4a4e924e91897c44b09b | |
parent | 386f6e5c704be9543a5b8bcf2cf81055c3520600 (diff) |
fixed push/pop bug
-rw-r--r-- | taexportlogo.py | 2 |
1 files changed, 1 insertions, 1 deletions
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" + \ |