diff options
author | Matthias Benkard <mulk@minimulk.mst-plus> | 2008-07-27 09:44:01 +0200 |
---|---|---|
committer | Matthias Benkard <mulk@minimulk.mst-plus> | 2008-07-27 09:44:01 +0200 |
commit | a234e03248b1a8a97ee5f0b1d3a8f988d275cea8 (patch) | |
tree | aa7ebafc37ced87a96855b9758310dd80c84d2fc /MLKDynamicContext.m | |
parent | 39c7ec616a22882c2b98244c7dcb39b6cd8ef122 (diff) | |
parent | bcde0dca1696a9f9e754d52776700edc83663453 (diff) |
Merge branch 'master' of http://matthias.benkard.de/code/mulklisp
Diffstat (limited to 'MLKDynamicContext.m')
-rw-r--r-- | MLKDynamicContext.m | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m index 593f4a7..1b8725b 100644 --- a/MLKDynamicContext.m +++ b/MLKDynamicContext.m @@ -24,6 +24,8 @@ #import <Foundation/NSString.h> #import <Foundation/NSThread.h> +#import "MLKBackquoteReader.h" +#import "MLKCommaReader.h" #import "MLKCons.h" #import "MLKDynamicContext.h" #import "MLKEnvironment.h" @@ -147,8 +149,6 @@ static MLKDynamicContext *global_context; [readtable setSyntaxType:MULTI_ESCAPE forCharacter:'|']; // [readtable setSyntaxType:NONTERMINATING_MACRO forCharacter:'#']; - // [readtable setSyntaxType:TERMINATING_MACRO forCharacter:'`']; - // [readtable setSyntaxType:TERMINATING_MACRO forCharacter:',']; [readtable setSyntaxType:SINGLE_ESCAPE forCharacter:'\\']; @@ -164,6 +164,14 @@ static MLKDynamicContext *global_context; [readtable setSyntaxType:TERMINATING_MACRO forCharacter:'\'']; [readtable setMacroFunction:AUTORELEASE([[MLKQuoteReader alloc] init]) forCharacter:'\'']; + + [readtable setSyntaxType:TERMINATING_MACRO forCharacter:'`']; + [readtable setMacroFunction:AUTORELEASE([[MLKBackquoteReader alloc] init]) + forCharacter:'`']; + + [readtable setSyntaxType:TERMINATING_MACRO forCharacter:',']; + [readtable setMacroFunction:AUTORELEASE([[MLKCommaReader alloc] init]) + forCharacter:',']; [readtable setSyntaxType:TERMINATING_MACRO forCharacter:';']; [readtable setMacroFunction:AUTORELEASE([[MLKSemicolonReader alloc] init]) |