(define-library (t)
  (import (primitives+builtins))
  (begin
    (let-syntax ((when (syntax-rules ()
                         ((_ test body ...)
                          (if test (begin body ...))))))
      (when #t
        (display "blah")))))