factor: Rename I[ ]I to [I I]. Fix places where we do "string"token without whitespace.

db4
Doug Coleman 2015-08-06 17:05:12 -05:00
parent 33d96f7623
commit 43fb73fae6
25 changed files with 41 additions and 41 deletions

View File

@ -18,7 +18,7 @@ IN: alien.remote-control.tests
image-path :> image
[
I[
[I
#include <vm/master.h>
#include <stdio.h>
#include <stdbool.h>
@ -34,7 +34,7 @@ int main(int argc, char **argv)
printf("Done.\n");
return 0;
}
]I
I]
] with-string-writer
[ compile-file ] with-temp-directory
[ run-test ] with-temp-directory ;

View File

@ -47,8 +47,8 @@ CONSTANT: key-tab 0x002b
CONSTANT: key-space 0x002c
CONSTANT: key-- 0x002d
CONSTANT: key-= 0x002e
CONSTANT: key-[ 0x002f
CONSTANT: key-] 0x0030
CONSTANT: key-lbracket 0x002f
CONSTANT: key-rbracket 0x0030
CONSTANT: key-\ 0x0031
CONSTANT: key-#-non-us 0x0032
CONSTANT: key-; 0x0033

View File

@ -40,6 +40,6 @@ IN: interpolate.tests
{ "Oops, I accidentally the whole economy..." } [
[let
"economy" :> noun
"accidentally" [ I[ Oops, I ${0} the whole ${noun}...]I ] with-string-writer
"accidentally" [ [I Oops, I ${0} the whole ${noun}...I] ] with-string-writer
]
] unit-test

View File

@ -76,6 +76,6 @@ MACRO: interpolate ( str -- quot )
: interpolate-locals ( str -- quot )
[ dup search [ [ ] ] [ [ get ] ] ?if ] interpolate-quot ;
SYNTAX: I[
"]I" parse-multiline-string
SYNTAX: [I
"I]" parse-multiline-string
interpolate-locals append! ;

View File

@ -49,8 +49,8 @@ CONSTANT: key-locations H{
{ key-i { { 85 25 } { 10 10 } } }
{ key-o { { 95 25 } { 10 10 } } }
{ key-p { { 105 25 } { 10 10 } } }
{ key-[ { { 115 25 } { 10 10 } } }
{ key-] { { 125 25 } { 10 10 } } }
{ key-lbracket { { 115 25 } { 10 10 } } }
{ key-rbracket { { 125 25 } { 10 10 } } }
{ key-\ { { 135 25 } { 15 10 } } }
{ key-caps-lock { { 0 35 } { 20 10 } } }