From: Joe Marshall <eval.apply@gmail.com>
Date: Sat, 21 Jan 2012 17:32:33 +0000 (-0800)
Subject: Remove SEQUENCE-3 (forgot to commit this one).
X-Git-Tag: release-9.2.0~334^2~8
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7d93d1bf8cc4ea4f4b48531554c414c55d11e916;p=mit-scheme.git

Remove SEQUENCE-3 (forgot to commit this one).
---

diff --git a/src/runtime/scomb.scm b/src/runtime/scomb.scm
index 3e214db2e..40813256f 100644
--- a/src/runtime/scomb.scm
+++ b/src/runtime/scomb.scm
@@ -137,32 +137,21 @@ USA.
 			  (loop (cdr actions))))))
 
 (define (sequence? object)
-  (or (object-type? (ucode-type sequence-2) object)
-      (object-type? (ucode-type sequence-3) object)))
+  (object-type? (ucode-type sequence-2) object))
 
 (define-guarantee sequence "SCode sequence")
 
 (define (sequence-actions expression)
-  (cond ((object-type? (ucode-type sequence-2) expression)
-	 (append! (sequence-actions (&pair-car expression))
-		  (sequence-actions (&pair-cdr expression))))
-	((object-type? (ucode-type sequence-3) expression)
-	 (append! (sequence-actions (&triple-first expression))
-		  (sequence-actions (&triple-second expression))
-		  (sequence-actions (&triple-third expression))))
-	(else
-	 (list expression))))
+  (if (object-type? (ucode-type sequence-2) expression)
+      (append! (sequence-actions (&pair-car expression))
+	       (sequence-actions (&pair-cdr expression)))
+      (list expression)))
 
 (define (sequence-immediate-actions expression)
-  (cond ((object-type? (ucode-type sequence-2) expression)
-	 (list (&pair-car expression)
-	       (&pair-cdr expression)))
-	((object-type? (ucode-type sequence-3) expression)
-	 (list (&triple-first expression)
-	       (&triple-second expression)
-	       (&triple-third expression)))
-	(else
-	 (error:not-sequence expression 'SEQUENCE-IMMEDIATE-ACTIONS))))
+  (if (object-type? (ucode-type sequence-2) expression)
+      (list (&pair-car expression)
+	    (&pair-cdr expression))
+      (error:not-sequence expression 'SEQUENCE-IMMEDIATE-ACTIONS)))
 
 (define (sequence-components expression receiver)
   (receiver (sequence-actions expression)))