src/: Introduce `deliver-call' to abbreviate function calls.

[sod] / src / method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 12cefc85ba500e44c21db8b8dbd617f3906b6fcc..c8b47ad90d67d674b56f04217c4fc29de3ac5d19 100644 (file)
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -296,11 +296,11 @@ (defun invoke-method (codegen target arguments-tail direct-method)
                         (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)