From 6ac708a3da24205e11a95b986a628c6fe6aa273f Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Sat, 17 Dec 2011 23:19:10 -0700
Subject: [PATCH] pruned unstable/syntax

---
 collects/tests/unstable/syntax.rkt         |  7 -------
 collects/unstable/scribblings/syntax.scrbl | 12 ------------
 collects/unstable/syntax.rkt               | 10 ----------
 3 files changed, 29 deletions(-)

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