pruned unstable/syntax

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)))))

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[(

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