diff --git a/include.rkt b/include.rkt index 813deac..b0ca636 100644 --- a/include.rkt +++ b/include.rkt @@ -3,7 +3,8 @@ (require (for-syntax racket/base syntax/path-spec racket/private/increader - compiler/cm-accomplice)) + compiler/cm-accomplice + racket/match racket/function)) (provide include-without-lang-line) @@ -99,10 +100,9 @@ ;; the guts are the (expr ...). To get them, we want the cdr of the fourth element. (define fourth cadddr) ; we don't have `fourth` in the syntax environment. ;; get the guts and package them back into a syntax object using the saved content-syntax as context. - (local-require racket/match racket/function) (define guts-data (match (map syntax->datum content) - [(list (list 'module modname lang (list '#%module-begin exprs ...))) exprs] - [(list exprs ...) exprs])) + [(list (list 'module modname lang (list '#%module-begin exprs ...))) exprs] + [(list exprs ...) exprs])) (map (curry datum->syntax content-syntax) guts-data)] [else null])) (close-input-port p) diff --git a/test/tests.rkt b/test/tests.rkt index 0751da4..2de656e 100644 --- a/test/tests.rkt +++ b/test/tests.rkt @@ -1,7 +1,7 @@ #lang racket/base (require rackunit net/url racket/set racket/list) -(require "main.rkt") +(require "../main.rkt") (check-equal? (->string "foo") "foo") (check-equal? (->string '()) "") @@ -189,7 +189,7 @@ (module include-test racket/base (require sugar/include) - (include-without-lang-line "test/source.rkt") + (include-without-lang-line "source.rkt") (provide included-symbol)) (require 'include-test) @@ -197,7 +197,7 @@ (module no-lang-line-include-test racket/base (require sugar/include) - (include-without-lang-line "test/no-lang-line-source.rkt") + (include-without-lang-line "no-lang-line-source.rkt") (provide no-lang-symbol)) (require 'no-lang-line-include-test)