|
|
@ -6,24 +6,6 @@
|
|
|
|
racket/match racket/function)
|
|
|
|
racket/match racket/function)
|
|
|
|
"../define.rkt")
|
|
|
|
"../define.rkt")
|
|
|
|
|
|
|
|
|
|
|
|
(module+ test
|
|
|
|
|
|
|
|
(require rackunit)
|
|
|
|
|
|
|
|
(module include-test racket/base
|
|
|
|
|
|
|
|
(require sugar/include)
|
|
|
|
|
|
|
|
(include-without-lang-line "source.rkt")
|
|
|
|
|
|
|
|
(provide included-symbol))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(require 'include-test)
|
|
|
|
|
|
|
|
(check-equal? included-symbol 'bar)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(module no-lang-line-include-test racket/base
|
|
|
|
|
|
|
|
(require sugar/include)
|
|
|
|
|
|
|
|
(include-without-lang-line "no-lang-line-source.txt")
|
|
|
|
|
|
|
|
(provide no-lang-symbol))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(require 'no-lang-line-include-test)
|
|
|
|
|
|
|
|
(check-equal? no-lang-symbol 'bar))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(provide+safe include-without-lang-line)
|
|
|
|
(provide+safe include-without-lang-line)
|
|
|
|
|
|
|
|
|
|
|
|
(define-syntax (do-include stx)
|
|
|
|
(define-syntax (do-include stx)
|
|
|
|