summaryrefslogtreecommitdiff
path: root/MLKDynamicContext.m
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-07-06 15:09:24 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-07-06 15:09:24 +0200
commitb0c7bc77dd6bf878fbbdd76c11e3a73cf7049c12 (patch)
tree269197d6806c395338b00050d03d58fa59204ca3 /MLKDynamicContext.m
parentc60c37073ee1a34fe40cc26723c06b779fbdf932 (diff)
Reader: Support comments introduced by semicolons.
Diffstat (limited to 'MLKDynamicContext.m')
-rw-r--r--MLKDynamicContext.m6
1 files changed, 5 insertions, 1 deletions
diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m
index 2be64e3..a6ffcca 100644
--- a/MLKDynamicContext.m
+++ b/MLKDynamicContext.m
@@ -33,6 +33,7 @@
#import "MLKQuoteReader.h"
#import "MLKReadtable.h"
#import "MLKStringReader.h"
+#import "MLKSemicolonReader.h"
#import "MLKSymbol.h"
#import "MLKInteger.h"
#import "runtime-compatibility.h"
@@ -145,7 +146,6 @@ static MLKDynamicContext *global_context;
[readtable setSyntaxType:MULTI_ESCAPE forCharacter:'|'];
- // [readtable setSyntaxType:TERMINATING_MACRO forCharacter:';'];
// [readtable setSyntaxType:NONTERMINATING_MACRO forCharacter:'#'];
// [readtable setSyntaxType:TERMINATING_MACRO forCharacter:'`'];
// [readtable setSyntaxType:TERMINATING_MACRO forCharacter:','];
@@ -165,6 +165,10 @@ static MLKDynamicContext *global_context;
[readtable setMacroFunction:AUTORELEASE([[MLKQuoteReader alloc] init])
forCharacter:'\''];
+ [readtable setSyntaxType:TERMINATING_MACRO forCharacter:';'];
+ [readtable setMacroFunction:AUTORELEASE([[MLKSemicolonReader alloc] init])
+ forCharacter:';'];
+
for (ch = '0'; ch <= '9'; ch++)
{
[readtable setSyntaxType:CONSTITUENT forCharacter:ch];