From 83cd6535358f329c2be801607b430d9800303be7 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Wed, 25 Jan 2012 07:20:15 -0800 Subject: [PATCH] Add sequence-immediate-first and sequence-immediate-second. --- src/runtime/scomb.scm | 8 ++++++++ 1 file changed, 8 insertions(+) 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) -- 2.25.1