Export sequence-immediate-first and -second.

diff --git a/src/compiler/machines/C/compiler.pkg b/src/compiler/machines/C/compiler.pkg
index e1e8dd6c1cded75f9b7df91c4a45c5265a9db0ad..2c1b5a35f7a3cb48c54be762beafa38244ca123f 100644 (file)
--- 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 4910c3891dd7b89e8f00ad645ed55cc1829a8df3..d8bdbf4c7ec0ed78a03695e2f9c6d0edeacca92d 100644 (file)
--- 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 2285b8a15c377abc752886a14d6d4778aeb49ed2..9f9792821ca30ff931ef38618446a2dedeee2df6 100644 (file)
--- 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 4c264e65876f072f74eb733be4e588ec0330c12a..d4824fe735671eb0d1b1069cd70996f58071d845 100644 (file)
--- 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 66c073626e01386a373e2b74d8be61213b9e6a1f..c643f48e38298230d1d7aca09ae914fe7f15bef1 100644 (file)
--- 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 3441a528ad616133c5b9f709bc6f5786df7b4567..2a5e9ff4b9f06a0caf39398ee27e3ae981804cd8 100644 (file)
--- 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 009f81bda52774be913c867a7833c7d24b1c8ed3..a8f05d4341d85d33b7359ee5c29835c42eb8b336 100644 (file)
--- 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 df0657bf1c5b5028acd888c4f821620957705f38..c5b4cffabbb62710aa22edc2673c56e833cb2645 100644 (file)
--- 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 ca2aa71071122b1e8896b455dc3fcaa4141a05af..442567c7b2573e9d99af8bcfc2df7664f64a9cf5 100644 (file)
--- 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 4ab02045a914b717c3165e0c0c01cc7c1855d678..205e98aec5bdd06d97b1e7536012e6a8fc7a0e3d 100644 (file)
--- 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?