(import (chicken port) brev-separate) (define-ir-syntax* ((efmt:create-output-string . body) `(call-with-output-string (lambda (,(inject ' out)) ,@body))))