(codegen-push codegen)
(call "aap" "va_arg" "*ap" (c-type (* va-list)))
(call :void name "kw" "aap" *null-pointer* 0)
- (setf va-act (namecheck "k" "kw.va_list"
+ (setf va-act (namecheck "k" "kw.valist"
(codegen-pop-block codegen) va-act))
;; Finish up the varargs loop.
(codegen-push codegen)
(convert "aap" (c-type (* va-list)))
(call :void name "kw" "aap" *null-pointer* 0)
- (setf tab-act (namecheck "v->kw" "kw.va_list"
+ (setf tab-act (namecheck "v->kw" "kw.valist"
(codegen-pop-block codegen) tab-act))
;; Finish off the table loop.