[Guile-rpc-bugs] [PATCH] compiler.scm (rpc-program-code/client): Fix code generation.

[Artyom Poptsov]

* modules/rpc/compiler.scm (rpc-program-code/client): Fix code
  generation: swap `arg-type' and `result-type' arguments in the
  generated call to `make-synchronous-rpc-call' procedure so now
  `rpc-program-code/client' produces correct RPC procedures.
---
 modules/rpc/compiler.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/rpc/compiler.scm b/modules/rpc/compiler.scm
index acbfbd8..8c21b5e 100644
--- a/modules/rpc/compiler.scm
+++ b/modules/rpc/compiler.scm
@@ -688,14 +688,14 @@ form, e.g., one with dashed instead of underscores, etc."
                            `(define ,(make-procedure-name name)
                               (make-synchronous-rpc-call
                                ,program-number ,version-number ,number
-                               ,ret-type
                                ,(cond ((null? arg-types)
                                        'xdr-void)
                                       ((null? (cdr arg-types))
                                        (car arg-types))
                                       (else
                                        `(make-xdr-struct-type
-                                         (list ,@arg-types))))))))
+                                         (list ,@arg-types))))
+                               ,ret-type))))
                        (reverse procs))))
               (reverse versions)))
 
-- 
1.8.3.2