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

diff --git a/src/runtime/scomb.scm b/src/runtime/scomb.scm
index 10dbccea584de406d63bbed920fd9efc0f8ae42b..1d715536069fb436b10d75474f7c3c3a3010fcc3 100644 (file)
--- 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)