From: Joe Marshall <eval.apply@gmail.com>
Date: Wed, 4 Jan 2012 04:38:35 +0000 (-0800)
Subject: Export PATTERN-CONTAINS-DUPLICATES?
X-Git-Tag: release-9.2.0~334^2~35
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8aa6be0450c8280fd1362bed140f5f41dbf84aa7;p=mit-scheme.git

Export PATTERN-CONTAINS-DUPLICATES?
---

diff --git a/src/compiler/machines/C/compiler.pkg b/src/compiler/machines/C/compiler.pkg
index f46e67b60..2a86981d1 100644
--- a/src/compiler/machines/C/compiler.pkg
+++ b/src/compiler/machines/C/compiler.pkg
@@ -308,6 +308,7 @@ USA.
   (parent (compiler))
   (export (compiler)
 	  make-pattern-variable
+	  pattern-contains-duplicates?
 	  pattern-lookup
 	  pattern-lookup-1
 	  pattern-variable-name
diff --git a/src/compiler/machines/i386/compiler.pkg b/src/compiler/machines/i386/compiler.pkg
index cb2ca90c1..4d66ddafc 100644
--- a/src/compiler/machines/i386/compiler.pkg
+++ b/src/compiler/machines/i386/compiler.pkg
@@ -294,6 +294,7 @@ USA.
   (parent (compiler))
   (export (compiler)
 	  make-pattern-variable
+	  pattern-contains-duplicates?
 	  pattern-lookup
 	  pattern-lookup-1
 	  pattern-variable-name
diff --git a/src/compiler/machines/svm/compiler.pkg b/src/compiler/machines/svm/compiler.pkg
index e41efe816..3845625a1 100644
--- a/src/compiler/machines/svm/compiler.pkg
+++ b/src/compiler/machines/svm/compiler.pkg
@@ -302,6 +302,7 @@ USA.
   (parent (compiler))
   (export (compiler)
 	  make-pattern-variable
+	  pattern-contains-duplicates?
 	  pattern-lookup
 	  pattern-lookup-1
 	  pattern-variable-name
diff --git a/src/compiler/machines/x86-64/compiler.pkg b/src/compiler/machines/x86-64/compiler.pkg
index b9f65d02b..4844db8c8 100644
--- a/src/compiler/machines/x86-64/compiler.pkg
+++ b/src/compiler/machines/x86-64/compiler.pkg
@@ -294,6 +294,7 @@ USA.
   (parent (compiler))
   (export (compiler)
 	  make-pattern-variable
+	  pattern-contains-duplicates?
 	  pattern-lookup
 	  pattern-lookup-1
 	  pattern-variable-name