[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-rpc-bugs] [PATCH] compiler.scm (rpc-program-code/client): Fix cod
From: |
Artyom Poptsov |
Subject: |
[Guile-rpc-bugs] [PATCH] compiler.scm (rpc-program-code/client): Fix code generation. |
Date: |
Sat, 15 Feb 2014 23:36:01 +0400 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) |
* 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
- [Guile-rpc-bugs] [PATCH] compiler.scm (rpc-program-code/client): Fix code generation.,
Artyom Poptsov <=