From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 30 May 2010 23:43:57 +0000 (-0700)
Subject: Fix thinko.
X-Git-Tag: 20100708-Gtk~45
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4f62d764cb237d68432043db2141fea9f1ab698c;p=mit-scheme.git

Fix thinko.
---

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index 5ae794a3d..a409203c1 100644
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -326,7 +326,8 @@ USA.
     (do ((i 0 (fix:+ i 1)))
 	((fix:= i %low-length))
       (vector-8b-set! low i
-		      (fix:not (vector-8b-ref low1 i))))
+		      (fix:and (fix:not (vector-8b-ref low1 i))
+			       #xff)))
     low))
 
 (define (%high-invert high1)