From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 6 Aug 1987 19:29:19 +0000 (+0000)
Subject: Add bit-string-xor! primitive.
X-Git-Tag: 20090517-FFI~13183
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=36f009901c88ce909d78c4d1a9b85007605f09bc;p=mit-scheme.git

Add bit-string-xor! primitive.
---

diff --git a/v7/src/runtime/bitstr.scm b/v7/src/runtime/bitstr.scm
index fba16b331..0c453bcaa 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.44 1987/07/27 22:02:31 cph Exp $
+;;;	$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 $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -55,7 +55,7 @@
    bit-string-zero? bit-string=?
    bit-string-fill! bit-string-move! bit-string-movec!
    bit-string-or! bit-string-and! bit-string-andc!
-   bit-substring-move-right!
+   bit-string-xor! bit-substring-move-right!
    bit-string->unsigned-integer unsigned-integer->bit-string
    read-bits! write-bits!
    bit-substring-find-next-set-bit))