From 32e60eb3ba1906390fd28f8e53d7851903f6810a Mon Sep 17 00:00:00 2001 From: Timothy Pearson Date: Wed, 25 Jan 2012 16:19:44 -0600 Subject: Fix linear alphabet string errors --- src/LexSmalltalk.cpp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/LexSmalltalk.cpp') diff --git a/src/LexSmalltalk.cpp b/src/LexSmalltalk.cpp index 96b942a..6f43ec3 100644 --- a/src/LexSmalltalk.cpp +++ b/src/LexSmalltalk.cpp @@ -30,10 +30,10 @@ classificationBlock := [ :charClass :chars | classificationBlock value: #DecDigit value: '0123456789'; - value: #Letter value: '_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPTQRSTUVWXYZ'; + value: #Letter value: '_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'; value: #Special value: '()[]{};.^:'; value: #BinSel value: '~@%&*-+=|\/,<>?!'; - value: #Upper value: 'ABCDEFGHIJKLMNOPTQRSTUVWXYZ'. + value: #Upper value: 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'. ((String new: 500) streamContents: [ :stream | stream crLf; nextPutAll: 'static int ClassificationTable[256] = {'. -- cgit v1.2.3