# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1428936970 -7200
# Node ID 706bc503cdb419b52b8de4cffd2f2c9391187bd5
# Parent  d8494ffbee49e86e5eec08727b87f96b50b52177
class: Scanner
changed: #isSpecialOrExtendedSpecialCharacter:

diff -r d8494ffbee49 -r 706bc503cdb4 Scanner.st
--- a/Scanner.st	Sun Mar 29 15:14:42 2015 +0200
+++ b/Scanner.st	Mon Apr 13 16:56:10 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -143,7 +145,7 @@
 extendedBinarySelectorCharacters
     "return a collection of characters which are optionally allowed in binary selectors"
 
-"/    ^ '±×·÷'.
+"/    ^ '±×·÷'.
     ^ String
         with:(Character value:16rB1)  "/ plus-minus
         with:(Character value:16rD7)  "/ times
@@ -2355,7 +2357,7 @@
     |code charType|
 
     code := ch codePoint.
-    code > typeArray size ifTrue:[^ false].
+    (code between:1 and: typeArray size) ifFalse:[^ false].
 
     charType := typeArray at:code.
     ^ (charType == #special) 
@@ -3725,11 +3727,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.331 2015-02-07 15:40:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.332 2015-04-13 14:56:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.331 2015-02-07 15:40:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.332 2015-04-13 14:56:10 cg Exp $'
 ! !