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

[sod] / src / codegen-test.lisp

diff --git a/src/codegen-test.lisp b/src/codegen-test.lisp
index 81fa3e0..da3763b 100644 (file)
--- a/src/codegen-test.lisp
+++ b/src/codegen-test.lisp
@@ -65,10 +65,8 @@
        do (ensure-var codegen name c-type-int init))
   (ensure-var codegen "g" c-type-int
              (make-call-inst "gcd" (list "u" "v" "&a")))
-  (emit-inst codegen (make-expr-inst
-                     (make-call-inst "printf"
-                                     (list "\"%d*%d == %d (mod %d)\\n\""
-                                           "a" "u" "g" "v"))))
+  (deliver-call codegen :void "printf"
+               "\"%d*%d == %d (mod %d)\\n\"" "a" "u" "g" "v")
   (deliver-expr codegen :return 0)
   (codegen-pop-function codegen "main"
                        (c-type (fun int