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