From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 14 Feb 1998 00:06:37 +0000 (+0000)
Subject: zero? -> fix:zero?
X-Git-Tag: 20090517-FFI~4855
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a4d3208be4ea0cb13cf81b72ee1451d1e49cacfd;p=mit-scheme.git

zero? -> fix:zero?
---

diff --git a/v7/src/runtime/chrset.scm b/v7/src/runtime/chrset.scm
index 0cbf50289..6d64c0148 100644
--- a/v7/src/runtime/chrset.scm
+++ b/v7/src/runtime/chrset.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: chrset.scm,v 14.6 1998/02/13 23:53:21 adams Exp $
+$Id: chrset.scm,v 14.7 1998/02/14 00:06:37 adams Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -79,7 +79,7 @@ MIT in each case. |#
 (define (char-set-members char-set)
   (define (loop code)
     (cond ((fix:>= code 256) '())
-	  ((zero? (vector-8b-ref char-set code)) (loop (fix:+ code 1)))
+	  ((fix:zero? (vector-8b-ref char-set code)) (loop (fix:+ code 1)))
 	  (else (cons (ascii->char code) (loop (fix:+ code 1))))))
   (loop 0))