Add escaped single and double quotes

This commit is contained in:
Koichi Nakamura 2021-12-12 16:11:32 +09:00
parent d0bc652c5d
commit 4227ac0ce0
2 changed files with 5 additions and 0 deletions

View file

@ -1177,6 +1177,8 @@ decimal \ set default to decimal
'v' of 11 endof
'f' of 12 endof
'r' of 13 endof
[char] ' of [char] ' endof
[char] " of [char] " endof
'\\' of '\\' endof
drop -1
endcase

View file

@ -614,6 +614,9 @@ T{ char HELLO -> 48 }T
T{ '\n' -> 0xa }T
T{ '\0' -> 0 }T
T{ 'a' -> 61 }T
T{ '"' -> 22 }T
T{ '\"' -> 22 }T
T{ '\'' -> 27 }T
T{ : gc1 [char] X ; -> }T
T{ : gc2 [char] HELLO ; -> }T
T{ gc1 -> 58 }T