From dd38e4a9c05df5de7c133cbb8d60fd10c7b56f5c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 3 Jan 2011 09:44:34 +0000
Subject:

---
 src/interp/scan.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/scan.boot b/src/interp/scan.boot
index 6f5f5776..18a858a5 100644
--- a/src/interp/scan.boot
+++ b/src/interp/scan.boot
@@ -196,10 +196,10 @@ scanPunCons()==
   a := MAKE_-BVEC 256
 --  SETSIZE(a,256)
   for i in 0..255 repeat
-    BVEC_-SETELT(a,i,0)
+    bitmask(a,i) := 0
   for k in listing repeat
     if not startsId? k.0
-    then BVEC_-SETELT(a,codePoint stringChar(k,0),1)
+    then bitmask(a,codePoint stringChar(k,0)) := 1
   a
 
 scanPun:=scanPunCons()
-- 
cgit v1.2.3