X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/e0808c472145fc81e52898bc9ac289e10c4f4f41..357885be46389c70dc9e7c7859f47af68aeb58ae:/src/codegen-proto.lisp?ds=inline

diff --git a/src/codegen-proto.lisp b/src/codegen-proto.lisp
index e7486fa..5364f72 100644
--- a/src/codegen-proto.lisp
+++ b/src/codegen-proto.lisp
@@ -406,4 +406,9 @@
 		  (emit-inst codegen (make-return-inst nil)))
     (t (funcall func target))))
 
+(export 'deliver-call)
+(defun deliver-call (codegen target func &rest args)
+  "Emit a statement to call FUNC with ARGS and deliver the result to TARGET."
+  (deliver-expr codegen target (make-call-inst func args)))
+
 ;;;----- That's all, folks --------------------------------------------------