unoidl2

commit 5c9e0b2ee0cfd0477ea4f4f79bedbe5186473ced
parent 3d76cc408b840f2efe9d6a9b46bd13f11764b2a6
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 18 Mar 2012 23:35:45 +0100

fix 2java pp return value

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

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/unoidl2java.c b/unoidl2java.c
@@ -44,7 +44,7 @@ static void pr(char *x) {printf("%s", x);}
 static void pl(char *x) {printf("%s\n", x);}
 static void pi(int x)   {printf("%d", x);}
 
-static void pp(Any x);
+static Any pp(Any x);
 
 static void pp_list(Any x, char *sep) {
   for(int i = 0; NIL != x; x = cdr(x), i++) {
@@ -710,7 +710,7 @@ static void pr_template(Any x) {
   template = 0;
 }
 
-static void pp(Any x) {
+static Any pp(Any x) {
   if(x) {
     if(consp(x)) {
       Any a = car(x);
@@ -773,6 +773,7 @@ static void pp(Any x) {
       print(x);
   } else
     printf("NIL");
+  return x;
 }
 
 static Any subst2java(Any v) {