From b451853b41af8aacce964d282745dca69c7c0621 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 14 Jun 1990 00:02:47 +0000 Subject: [PATCH] Add sequence-immediate-actions that does not flatten the structure. --- v7/src/runtime/scomb.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/v7/src/runtime/scomb.scm b/v7/src/runtime/scomb.scm index e51120616..583946cf1 100644 --- a/v7/src/runtime/scomb.scm +++ b/v7/src/runtime/scomb.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scomb.scm,v 14.4 1989/10/26 06:47:03 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scomb.scm,v 14.5 1990/06/14 00:02:47 jinx Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -109,6 +109,17 @@ MIT in each case. |# (else (list sequence)))) +(define (sequence-immediate-actions sequence) + (cond ((object-type? (ucode-type sequence-2) sequence) + (list (&pair-car sequence) + (&pair-cdr sequence))) + ((object-type? (ucode-type sequence-3) sequence) + (list (&triple-first sequence) + (&triple-second sequence) + (&triple-third sequence))) + (else + (error "sequence-immediate-actions: not a sequence" sequence)))) + (define-integrable (sequence-components sequence receiver) (receiver (sequence-actions sequence))) -- 2.25.1