unoidl2

commit 799846c25b5884eef3c13ad8d2d659b086e1e0f7
parent 3353df4826168b36c710041a15b50d011f7ca794
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 17 Dec 2011 17:40:26 +0100

2java pr_relative fix

Diffstat:
M
unoidl2java.c
 | 
9
+++------

1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/unoidl2java.c b/unoidl2java.c
@@ -313,13 +313,10 @@ static void pr_relative(Any x) {
     return;
   }
   Any p = car(rel_package);
-  if(null(p) || !null(cddr(x)))
-    pp_list(cdr(x), ".");
-  else { // x => (relative ServiceContext) p => (iop corba star sun com)
-    Any a = car(x);
-    Any d = cdr(x);
+  if(null(cddr(x))) // x => (relative ServiceContext) p => (iop corba star sun com)
     pp_list(reverse(cons(cadr(x), p), NIL), ".");
-  }
+  else
+    pp_list(cdr(x), ".");
 }
 
 static void pr_absolute(Any x) {