(module m1
  *

(import scheme)
(import chicken)

(import-for-syntax scheme)
(import-for-syntax chicken)

(begin-for-syntax
 (require-library m0))
(import-for-syntax m0)

(define-syntax make-f1
  (er-macro-transformer
    (lambda (form rename compare?)
      (let-values (((a b) (values -1 -2)))
        `(define (f1 x)
           (list ,a ,b ,(f0 'x (cadr form))))))))

(make-f1 10))