Add bit-string-append-reversed for use by the compiler.

diff --git a/v7/src/runtime/bitstr.scm b/v7/src/runtime/bitstr.scm
index 0c453bcaaa0dbd450e728d483ad8abfd4998952c..7cdac5efec942bda4a88c861a80c3efcb3ab0134 100644 (file)
--- a/v7/src/runtime/bitstr.scm
+++ b/v7/src/runtime/bitstr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/bitstr.scm,v 13.45 1987/08/06 19:29:19 jinx Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/bitstr.scm,v 13.46 1987/08/10 20:26:15 jinx Rel $
 ;;;
 ;;;    Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -61,6 +61,7 @@
    bit-substring-find-next-set-bit))
 
 (define (bit-string-append x y)
+  (declare (integrate x y))
   (let ((x-length (bit-string-length x))
        (y-length (bit-string-length y)))
     (let ((result (bit-string-allocate (+ x-length y-length))))
@@ -68,6 +69,10 @@
       (bit-substring-move-right! y 0 y-length result x-length)
       result)))
 
+(define (bit-string-append-reversed x y)
+  (declare (integrate bit-string-append))
+  (bit-string-append y x))
+
 (define (bit-substring bit-string start end)
   (let ((result (bit-string-allocate (- end start))))
     (bit-substring-move-right! bit-string start end result 0)