From b0c7bc77dd6bf878fbbdd76c11e3a73cf7049c12 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 6 Jul 2008 15:09:24 +0200
Subject: Reader: Support comments introduced by semicolons.

---
 MLKDynamicContext.m | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'MLKDynamicContext.m')

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];
-- 
cgit v1.2.3