From 606a56199332871ba91eaf87839cafe70eba48d0 Mon Sep 17 00:00:00 2001
From: snar <snar>
Date: Fri, 10 Oct 2008 13:17:19 +0000
Subject: [PATCH] ok, some bugs fixed.

---
 sx_prefix.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/sx_prefix.c b/sx_prefix.c
index 2686a58..39f57c8 100644
--- a/sx_prefix.c
+++ b/sx_prefix.c
@@ -226,7 +226,7 @@ next:
 				node->parent->r=node->r;
 				node->r->parent=node->parent;
 			} else if(node->parent->l==node) { 
-				node->parent->l=node->l;
+				node->parent->l=node->r;
 				node->r->parent=node->parent;
 			} else { 
 				sx_report(SX_ERROR,"Unlinking node which is not descendant "
@@ -369,6 +369,7 @@ next:
 			rn->l=ret;
 			rn->r=chead;
 		};
+		rn->parent=chead->parent;
 		chead->parent=rn;
 		ret->parent=rn;
 		rn->isGlue=1;