(module
 foo
 *
 (import scheme)
 (define (bar x) (+ x 2)))

(cond-expand
 (v1
  (import foo))
 (else
  (import (prefix foo foo:))
  (define bar foo:bar)))

(define (baz x) (bar x))

(use extras)
(format #t "baz: ~a\n" (eval '(baz 1)))
(format #t "bar is unbound in compiled as `csc -Dv1 tt.scm` ~a\n" (eval '(bar 1)))
(exit 0)