suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Wrap string/byte literals in --parse-tree mode

Browse Source
This commit is contained in:
Adam Sampson 2006-09-23 20:33:43 +00:00
parent 2e9b2a711d
commit 60e2890233
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fco/SExpression.hs
View File

@ -128,8 +128,8 @@ nodeToSExp node
OcLitReal a -> wrap "real-literal" (Item a) OcLitReal a -> wrap "real-literal" (Item a)
OcLitInt a -> wrap "integer-literal" (Item a) OcLitInt a -> wrap "integer-literal" (Item a)
OcLitHex a -> wrap "hex-literal" (Item a) OcLitHex a -> wrap "hex-literal" (Item a)
OcLitByte a -> wrap "byte-literal" (Item a) OcLitByte a -> wrap "byte-literal" (Item ("'" ++ a ++ "'"))
OcLitString a -> wrap "string-literal" (Item a) OcLitString a -> wrap "string-literal" (Item ("\"" ++ a ++ "\""))
OcLitArray a -> wrapl "array-literal" (map top a) OcLitArray a -> wrapl "array-literal" (map top a)
OcTrue -> Item "true" OcTrue -> Item "true"
OcFalse -> Item "false" OcFalse -> Item "false"