summaryrefslogtreecommitdiff
path: root/src/cli/runtime/PersistentTree.cs
diff options
context:
space:
mode:
Diffstat (limited to 'src/cli/runtime/PersistentTree.cs')
-rw-r--r--src/cli/runtime/PersistentTree.cs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/cli/runtime/PersistentTree.cs b/src/cli/runtime/PersistentTree.cs
index cfdb05cb..2cb0a2b6 100644
--- a/src/cli/runtime/PersistentTree.cs
+++ b/src/cli/runtime/PersistentTree.cs
@@ -639,10 +639,10 @@ public class Seq : ISeq{
}
internal static Seq create(Node t, bool asc){
- return new Seq(push(t,asc,null),asc);
+ return new Seq(push(t, null, asc),asc);
}
- static ISeq push(Node t, bool asc, ISeq stack){
+ static ISeq push(Node t, ISeq stack, bool asc){
while(t != null)
{
stack = RT.cons(t,stack);
@@ -657,7 +657,7 @@ public class Seq : ISeq{
public ISeq rest() {
Node t = (Node)stack.first();
- ISeq nextstack = push(asc ? t.right() : t.left(),asc,stack.rest());
+ ISeq nextstack = push(asc ? t.right() : t.left(), stack.rest(), asc);
if(nextstack != null)
{
return new Seq(nextstack,asc);