#lang scheme/unit (require "test-sig.ss") (require "thing-sig.ss") (import thing^) (export test^) (define (test) (if (thingy? (foo-thing 23 42)) (display "Yea\n") (display "Nay\n")))