factor: Rename I[ ]I to [I I]. Fix places where we do "string"token without whitespace.
parent
33d96f7623
commit
43fb73fae6
|
@ -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 ;
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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! ;
|
||||
|
|
|
@ -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 } } }
|
||||
|
|
Loading…
Reference in New Issue