From fe3d4c9fe6b52e79fb8001eb89cc92525ea72ea3 Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Thu, 25 Aug 2011 15:54:21 -0400
Subject: [PATCH] Fixed sequence/c to work with multiple-element sequences.

---
 collects/unstable/contract.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/unstable/contract.rkt b/collects/unstable/contract.rkt
index f0ab0e5086..29a68c55e5 100644
--- a/collects/unstable/contract.rkt
+++ b/collects/unstable/contract.rkt
@@ -225,8 +225,8 @@
                  (lambda (idx) idx)
                  #f
                  (lambda (idx) (more?))
-                 (lambda (elem) #t)
-                 (lambda (idx elem) #t)))))))
+                 (lambda elems #t)
+                 (lambda (idx . elems) #t)))))))
      sequence?)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;