resources/expand/scm/r7rs.ebnf

@@ -20,9 +20,14 @@ list = <left-paren> datum* <right-paren>
 improper-list = <left-paren> datum+ <dot> datum <right-paren>
 
 (* symbol *)
-symbol = ordinary-symbol <intertoken-space>
+symbol
+  = ordinary-symbol <intertoken-space>
+  | peculiar-symbol <intertoken-space>
+
 <ordinary-symbol> = #"[\p{Lu}\p{Ll}\p{Lt}\p{Lm}\p{Lo}\p{Nl}\p{No}\p{Pd}\p{Pc}\p{Sc}\p{Po}\p{Sm}\p{Sk}\p{So}\p{Co}\u200c\u200d&&[^;|\".,#]][\p{Lu}\p{Ll}\p{Lt}\p{Lm}\p{Lo}\p{Nl}\p{No}\p{Pd}\p{Pc}\p{Sc}\p{Po}\p{Sm}\p{Sk}\p{So}\p{Co}\u200c\u200d\p{Nd}\p{Me}\p{Mc}.&&[^;|\",#]]*"
 
+<peculiar-symbol> = '...'
+
 (* number *)
 number = num-10 <intertoken-space>