From 36f009901c88ce909d78c4d1a9b85007605f09bc Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 6 Aug 1987 19:29:19 +0000 Subject: [PATCH] Add bit-string-xor! primitive. --- v7/src/runtime/bitstr.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.25.1