From: Joe Marshall <eval.apply@gmail.com>
Date: Wed, 25 Jan 2012 15:20:15 +0000 (-0800)
Subject: Add sequence-immediate-first and sequence-immediate-second.
X-Git-Tag: release-9.2.0~332^2~5
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=83cd6535358f329c2be801607b430d9800303be7;p=mit-scheme.git

Add sequence-immediate-first and sequence-immediate-second.
---

diff --git a/src/runtime/scomb.scm b/src/runtime/scomb.scm
index 10dbccea5..1d7155360 100644
--- a/src/runtime/scomb.scm
+++ b/src/runtime/scomb.scm
@@ -59,6 +59,14 @@ USA.
   (guarantee-sequence expression 'SEQUENCE-SECOND)
   (%sequence-second expression))
 
+(define (sequence-immediate-first expression)
+  (guarantee-sequence expression 'SEQUENCE-IMMEDIATE-FIRST)
+  (%sequence-first expression))
+
+(define (sequence-immediate-second expression)
+  (guarantee-sequence expression 'SEQUENCE-IMMEDIATE-SECOND)
+  (%sequence-second expression))
+
 (define (sequence-immediate-actions expression)
   (guarantee-sequence expression 'SEQUENCE-IMMEDIATE-ACTIONS)
   (list (%sequence-first expression)