(xdef 'outfile (lambda (f . args) (open-output-file f 'text (if (equal? args '(append)) 'append 'truncate))))
From ac.scm ©
ac.scm