From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 10 Aug 1987 20:26:15 +0000 (+0000)
Subject: Add bit-string-append-reversed for use by the compiler.
X-Git-Tag: 20090517-FFI~13169
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=722c2386e5d289062f47dc057b955e68bc200944;p=mit-scheme.git

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 0c453bcaa..7cdac5efe 100644
--- 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)