changed: #readFrom:printFormat:language:onError:
authorfm
Fri, 26 Mar 2010 15:26:26 +0100
changeset 12814 3a2276a9de49
parent 12813 054a53cb88fd
child 12815 ae5dc64d49a8
changed: #readFrom:printFormat:language:onError:
Date.st
--- a/Date.st	Fri Mar 26 13:05:10 2010 +0100
+++ b/Date.st	Fri Mar 26 15:26:26 2010 +0100
@@ -538,7 +538,7 @@
                         fc == Character space ifTrue:[
                             "/ Skip most possible separator characters 
                             "/ (if not enought, should check for isNationalAlphaNumeric instead)
-                            [(c := str peek) isSeparator or:[ '-.:,;/\|?<>[]{}()#@!!$&^+=~*' includes:c ] ] whileTrue:[ str next ].    
+                            [(c := str peek) isSeparator or:[ '-.:,;/\|?<>[]{}()#@!!$&^+=~*_"`' includes:c ] ] whileTrue:[ str next ].    
                         ] ifFalse:[
                             str skipSeparators.
                             str next == fc ifFalse:[^ exceptionBlock value].
@@ -3017,11 +3017,11 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.134 2010-03-24 14:17:51 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.135 2010-03-26 14:26:26 fm Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.134 2010-03-24 14:17:51 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.135 2010-03-26 14:26:26 fm Exp $'
 ! !
 
 Date initialize!