From a4d3208be4ea0cb13cf81b72ee1451d1e49cacfd Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 14 Feb 1998 00:06:37 +0000
Subject: [PATCH] zero? -> fix:zero?

---
 v7/src/runtime/chrset.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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))
 
-- 
2.25.1