12 lines
311 B
Racket
12 lines
311 B
Racket
#lang racket/base
|
|
|
|
(provide phase-1-tests)
|
|
|
|
;; Check that phase-1 annotations work, even in a namespace that is
|
|
;; otherwise empty at phase 1.
|
|
(define (phase-1-tests)
|
|
(define ns (make-base-namespace))
|
|
(parameterize ([current-namespace ns])
|
|
(dynamic-require 'errortrace #f)
|
|
(eval #'(struct a (x)))))
|