equal
deleted
inserted
replaced
172 ]. |
172 ]. |
173 |
173 |
174 ok := aStringOrSymbol first isLetterOrUnderline. |
174 ok := aStringOrSymbol first isLetterOrUnderline. |
175 ok ifTrue:[ |
175 ok ifTrue:[ |
176 (aStringOrSymbol |
176 (aStringOrSymbol |
177 findFirst:[:ch | (ch isLetterOrDigit or:[ch == $_]) not] |
177 findFirst:[:ch | (ch isLetterOrDigitOrUnderline) not] |
178 startingAt:2) ~~ 0 |
178 startingAt:2) ~~ 0 |
179 ifTrue:[ |
179 ifTrue:[ |
180 ok := false. |
180 ok := false. |
181 ] |
181 ] |
182 ]. |
182 ]. |
225 " |
225 " |
226 |
226 |
227 "Modified: / 14-09-1997 / 09:46:59 / cg" |
227 "Modified: / 14-09-1997 / 09:46:59 / cg" |
228 "Modified: / 18-03-1999 / 18:24:13 / stefan" |
228 "Modified: / 18-03-1999 / 18:24:13 / stefan" |
229 "Modified (comment): / 23-03-2012 / 11:49:00 / cg" |
229 "Modified (comment): / 23-03-2012 / 11:49:00 / cg" |
230 "Modified: / 11-06-2018 / 15:22:04 / Claus Gittinger" |
230 "Modified: / 05-06-2019 / 17:06:27 / Claus Gittinger" |
231 ! |
231 ! |
232 |
232 |
233 new |
233 new |
234 "catch new - namespaces are not to be created by the user" |
234 "catch new - namespaces are not to be created by the user" |
235 |
235 |