X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/e674612eb9e1a1dde2522260163a93a13ed44a0f..357885be46389c70dc9e7c7859f47af68aeb58ae:/src/method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 12cefc8..c8b47ad 100644
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -296,11 +296,11 @@
 			 (emit-inst codegen
 				    (make-va-copy-inst *sod-tmp-ap*
 						       *sod-ap*))
-			 (deliver-expr codegen var
-				       (make-call-inst function arguments))
+			 (apply #'deliver-call codegen var
+				function arguments)
 			 (emit-inst codegen
 				    (make-va-end-inst *sod-tmp-ap*))))
-	(deliver-expr codegen target (make-call-inst function arguments)))))
+	(apply #'deliver-call codegen target function arguments))))
 
 (export 'ensure-ilayout-var)
 (defun ensure-ilayout-var (codegen super)