diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-01 17:40:34 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-01 17:40:34 +0200 |
commit | e97d47a664131b5c80f35265f33e82eefb04f1d0 (patch) | |
tree | ebf4e251add7474062fbf7cbba2696f1e64e6cc4 /MLKReader.m | |
parent | 2ce5b7ded1c689548e9becb6fb39284ea68a1941 (diff) |
Implement a raw version of LOAD.
Diffstat (limited to 'MLKReader.m')
-rw-r--r-- | MLKReader.m | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/MLKReader.m b/MLKReader.m index c880a68..f957c4d 100644 --- a/MLKReader.m +++ b/MLKReader.m @@ -67,7 +67,7 @@ } ch = [stream readChar]; - if ([readtable isWhitespaceCharacter:ch]) + if ([readtable isWhitespaceCharacter:ch] || ch == '\0') goto start; if ([readtable isMacroCharacter:ch]) @@ -115,7 +115,7 @@ if ([readtable isConstituentCharacter:ch]) { - //NSLog (@"--> Constituent"); + //NSLog (@"--> Constituent (%C)", ch); token = [NSMutableString stringWithCapacity:8]; [token appendFormat:@"%C", [readtable charWithReadtableCase:ch]]; } |