- (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"))))
+ (make-call-inst "gcd" "u" "v" "&a"))
+ (deliver-call codegen :void "printf"
+ "\"%d*%d == %d (mod %d)\\n\"" "a" "u" "g" "v")