diff --git a/collects/tests/unstable/syntax.rkt b/collects/tests/unstable/syntax.rkt index a7c8029382..76da3f8065 100644 --- a/collects/tests/unstable/syntax.rkt +++ b/collects/tests/unstable/syntax.rkt @@ -18,12 +18,6 @@ (run-tests (test-suite "syntax.rkt" - (test-suite "Syntax Lists" - - (test-suite "syntax-map" - (test-case "identifiers to symbols" - (check-equal? (syntax-map syntax-e #'(a b c)) '(a b c))))) - (test-suite "Syntax Source Locations" (test-suite "syntax-source-file-name" diff --git a/collects/unstable/scribblings/syntax.scrbl b/collects/unstable/scribblings/syntax.scrbl index 56cd38de9a..e9fece10c2 100644 --- a/collects/unstable/scribblings/syntax.scrbl +++ b/collects/unstable/scribblings/syntax.scrbl @@ -91,15 +91,6 @@ Bounds are inclusive. @;{----} -@addition{@author+email["Sam Tobin-Hochstadt" "samth@racket-lang.org"]} - -@defproc[(syntax-map [f (-> syntax? A)] [stxl syntax?] ...) (listof A)]{ -Performs @racket[(map f (syntax->list stxl) ...)]. - -@examples[#:eval the-eval -(syntax-map syntax-e #'(a b c))] -} - @addition{@author+email["Eric Dobson" "eric.n.dobson@gmail.com"]} @defproc[(syntax-length [stx syntax?]) exact-nonnegative-integer?]{ diff --git a/collects/unstable/syntax.rkt b/collects/unstable/syntax.rkt index 3f2d1bc1da..88ce1b8adf 100644 --- a/collects/unstable/syntax.rkt +++ b/collects/unstable/syntax.rkt @@ -1,13 +1,10 @@ #lang racket/base ;; owner: ryanc (and cce and stamourv, where noted) (require racket/syntax - syntax/stx (for-syntax racket/base) (for-template racket/base)) -(provide (rename-out [stx-map syntax-map]) - - ;; by endobson +(provide ;; by endobson syntax-length ;; by cce: