syndicate-lang
/
preserves
mirror of https://gitlab.com/preserves/preserves.git
1
0
Fork 1
Code Releases Activity

Allow dots to lead/fill raw symbols

This commit is contained in:
Tony Garnock-Jones 2018-10-08 19:54:04 +01:00
parent e741ffef6d
commit c02e790f71
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
implementations/racket/preserves/main.rkt
View File

@ -756,6 +756,8 @@
(record (discard) '(3 4))
(#xB3 #x80 #x13 #x14))
(cross-check "[abc ... def]" (list 'abc '|...| 'def) (#xC3 #x73 "abc" #x73 "..." #x73 "def"))
(check-equal? (d (expected #x2C #x00 #x00)) (void)) ;; missing end byte
(check-equal? (d (expected #xC3 #x00 #x00)) (void)) ;; missing element

4
preserves.md
View File

@ -429,9 +429,9 @@ double quote mark.
Symbol = symstart *symcont / "|" *symchar "|"
symstart = ALPHA / sympunct / symunicode
symcont = ALPHA / sympunct / symunicode / DIGIT / "-" / "."
symcont = ALPHA / sympunct / symunicode / DIGIT / "-"
sympunct = "~" / "!" / "@" / "$" / "%" / "^" / "&" / "*" /
"?" / "_" / "=" / "+" / "<" / ">" / "/"
"?" / "_" / "=" / "+" / "<" / ">" / "/" / "."
symchar = unescaped / %x22 / escape (escaped / %x7C / %s"u" 4HEXDIG)
symunicode = <any code point greater than 127 whose Unicode
category is Lu, Ll, Lt, Lm, Lo, Mn, Mc, Me, Nd,