(module qq-test (lib "frp.ss" "frtime") ; (make-namespace-with-mred 'mred) ; (require (lib "mred.ss" "mred")) ; (require-for-syntax (lib "mred.ss" "mred")) (require (as-is:unchecked mzscheme define-syntax)) (define-syntax (tst stx) (syntax-case stx () [(_) #'(cons 2 (cons seconds ()))])) (provide tst))