diff --git a/collects/tests/unstable/syntax.rkt b/collects/tests/unstable/syntax.rkt index 2ea1317080..a7c8029382 100644 --- a/collects/tests/unstable/syntax.rkt +++ b/collects/tests/unstable/syntax.rkt @@ -20,13 +20,6 @@ (test-suite "Syntax Lists" - (test-suite "syntax-list" - (test - (check-equal? - (with-syntax ([([x ...] ...) #'([1 2] [3] [4 5 6])]) - (map syntax->datum (syntax-list x ... ...))) - (list 1 2 3 4 5 6)))) - (test-suite "syntax-map" (test-case "identifiers to symbols" (check-equal? (syntax-map syntax-e #'(a b c)) '(a b c))))) diff --git a/collects/unstable/scribblings/syntax.scrbl b/collects/unstable/scribblings/syntax.scrbl index 933a996887..be57590757 100644 --- a/collects/unstable/scribblings/syntax.scrbl +++ b/collects/unstable/scribblings/syntax.scrbl @@ -76,18 +76,6 @@ Performs @racket[(map f (syntax->list stxl) ...)]. @addition[@author+email["Carl Eastlund" "cce@racket-lang.org"]] -@defform[(syntax-list template ...)]{ - -This form constructs a list of syntax objects based on the given templates. It -is equivalent to @racket[(syntax->list (syntax (template ...)))]. - -@defexamples[ -#:eval the-eval -(with-syntax ([(x ...) (syntax (1 2 3))]) (syntax-list x ...)) -] -} - - @section{Syntax Object Source Locations} @deftogether[( diff --git a/collects/unstable/syntax.rkt b/collects/unstable/syntax.rkt index 2a34eb4258..de1c34ee38 100644 --- a/collects/unstable/syntax.rkt +++ b/collects/unstable/syntax.rkt @@ -5,7 +5,6 @@ (for-syntax racket/base)) (provide (rename-out [stx-map syntax-map]) - syntax-list ;; by cce: syntax-source-file-name @@ -25,15 +24,6 @@ ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;; Pattern Bindings -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(define-syntax-rule (syntax-list template ...) - (syntax->list (syntax (template ...)))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Syntax Locations