From: Joe Marshall Date: Wed, 25 Jan 2012 15:21:36 +0000 (-0800) Subject: Export sequence-immediate-first and -second. X-Git-Tag: release-9.2.0~332^2~4 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=74901c5b4cecf0d7e20a76c5b60dbdcf57b1ca5e;p=mit-scheme.git Export sequence-immediate-first and -second. --- diff --git a/src/compiler/machines/C/compiler.pkg b/src/compiler/machines/C/compiler.pkg index e1e8dd6c1..2c1b5a35f 100644 --- a/src/compiler/machines/C/compiler.pkg +++ b/src/compiler/machines/C/compiler.pkg @@ -163,6 +163,8 @@ USA. (scode/quotation? quotation?) (scode/sequence-actions sequence-actions) (scode/sequence-components sequence-components) + (scode/sequence-immediate-first sequence-immediate-first) + (scode/sequence-immediate-second sequence-immediate-second) (scode/sequence-first sequence-first) (scode/sequence-second sequence-second) (scode/sequence? sequence?) diff --git a/src/compiler/machines/alpha/compiler.pkg b/src/compiler/machines/alpha/compiler.pkg index 4910c3891..d8bdbf4c7 100644 --- a/src/compiler/machines/alpha/compiler.pkg +++ b/src/compiler/machines/alpha/compiler.pkg @@ -161,6 +161,8 @@ USA. (scode/quotation? quotation?) (scode/sequence-actions sequence-actions) (scode/sequence-components sequence-components) + (scode/sequence-immediate-first sequence-immediate-first) + (scode/sequence-immediate-second sequence-immediate-second) (scode/sequence-first sequence-first) (scode/sequence-second sequence-second) (scode/sequence? sequence?) diff --git a/src/compiler/machines/bobcat/compiler.pkg b/src/compiler/machines/bobcat/compiler.pkg index 2285b8a15..9f9792821 100644 --- a/src/compiler/machines/bobcat/compiler.pkg +++ b/src/compiler/machines/bobcat/compiler.pkg @@ -162,6 +162,8 @@ USA. (scode/quotation? quotation?) (scode/sequence-actions sequence-actions) (scode/sequence-components sequence-components) + (scode/sequence-immediate-first sequence-immediate-first) + (scode/sequence-immediate-second sequence-immediate-second) (scode/sequence-first sequence-first) (scode/sequence-second sequence-second) (scode/sequence? sequence?) diff --git a/src/compiler/machines/i386/compiler.pkg b/src/compiler/machines/i386/compiler.pkg index 4c264e658..d4824fe73 100644 --- a/src/compiler/machines/i386/compiler.pkg +++ b/src/compiler/machines/i386/compiler.pkg @@ -164,6 +164,8 @@ USA. (scode/quotation? quotation?) (scode/sequence-actions sequence-actions) (scode/sequence-components sequence-components) + (scode/sequence-immediate-first sequence-immediate-first) + (scode/sequence-immediate-second sequence-immediate-second) (scode/sequence-first sequence-first) (scode/sequence-second sequence-second) (scode/sequence? sequence?) diff --git a/src/compiler/machines/mips/compiler.pkg b/src/compiler/machines/mips/compiler.pkg index 66c073626..c643f48e3 100644 --- a/src/compiler/machines/mips/compiler.pkg +++ b/src/compiler/machines/mips/compiler.pkg @@ -162,6 +162,8 @@ USA. (scode/quotation? quotation?) (scode/sequence-actions sequence-actions) (scode/sequence-components sequence-components) + (scode/sequence-immediate-first sequence-immediate-first) + (scode/sequence-immediate-second sequence-immediate-second) (scode/sequence-first sequence-first) (scode/sequence-second sequence-second) (scode/sequence? sequence?) diff --git a/src/compiler/machines/spectrum/compiler.pkg b/src/compiler/machines/spectrum/compiler.pkg index 3441a528a..2a5e9ff4b 100644 --- a/src/compiler/machines/spectrum/compiler.pkg +++ b/src/compiler/machines/spectrum/compiler.pkg @@ -162,6 +162,8 @@ USA. (scode/quotation? quotation?) (scode/sequence-actions sequence-actions) (scode/sequence-components sequence-components) + (scode/sequence-immediate-first sequence-immediate-first) + (scode/sequence-immediate-second sequence-immediate-second) (scode/sequence-first sequence-first) (scode/sequence-second sequence-second) (scode/sequence? sequence?) diff --git a/src/compiler/machines/svm/compiler.pkg b/src/compiler/machines/svm/compiler.pkg index 009f81bda..a8f05d434 100644 --- a/src/compiler/machines/svm/compiler.pkg +++ b/src/compiler/machines/svm/compiler.pkg @@ -165,6 +165,8 @@ USA. (scode/quotation? quotation?) (scode/sequence-actions sequence-actions) (scode/sequence-components sequence-components) + (scode/sequence-immediate-first sequence-immediate-first) + (scode/sequence-immediate-second sequence-immediate-second) (scode/sequence-first sequence-first) (scode/sequence-second sequence-second) (scode/sequence? sequence?) diff --git a/src/compiler/machines/vax/compiler.pkg b/src/compiler/machines/vax/compiler.pkg index df0657bf1..c5b4cffab 100644 --- a/src/compiler/machines/vax/compiler.pkg +++ b/src/compiler/machines/vax/compiler.pkg @@ -162,6 +162,8 @@ USA. (scode/quotation? quotation?) (scode/sequence-actions sequence-actions) (scode/sequence-components sequence-components) + (scode/sequence-immediate-first sequence-immediate-first) + (scode/sequence-immediate-second sequence-immediate-second) (scode/sequence-first sequence-first) (scode/sequence-second sequence-second) (scode/sequence? sequence?) diff --git a/src/compiler/machines/x86-64/compiler.pkg b/src/compiler/machines/x86-64/compiler.pkg index ca2aa7107..442567c7b 100644 --- a/src/compiler/machines/x86-64/compiler.pkg +++ b/src/compiler/machines/x86-64/compiler.pkg @@ -164,6 +164,8 @@ USA. (scode/quotation? quotation?) (scode/sequence-actions sequence-actions) (scode/sequence-components sequence-components) + (scode/sequence-immediate-first sequence-immediate-first) + (scode/sequence-immediate-second sequence-immediate-second) (scode/sequence-first sequence-first) (scode/sequence-second sequence-second) (scode/sequence? sequence?) diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg index 4ab02045a..205e98aec 100644 --- a/src/runtime/runtime.pkg +++ b/src/runtime/runtime.pkg @@ -3634,6 +3634,8 @@ USA. sequence-actions sequence-components sequence-immediate-actions + sequence-immediate-first + sequence-immediate-second sequence-first sequence-second sequence?