Commits

Anonymous committed 028f272

Don't emit bare chars

Comments (0)

Files changed (1)

                                       (zero-or-more)))
                             (label (maybe (link-label))))
                   (result (if label
-                              (append text (list #\[) label (list #\]))
+                              (append text (list "[") label (list "]"))
                               text)))
                 (is #\]))))
 
   (sequence* ((label (-> (link-label)
                          (followed-by (none-of (is #\:))))))
     (result `(reference-link
-              (input #\[ ,@label #\])
+              (input "[" ,@label "]")
               (ref   . ,label)
               (label . ,label)))))
 
               (space space-new-line)
               (ref   (link-label)))
     (result `(reference-link
-              (input #\[ ,@label #\]
+              (input "[" ,@label "]"
                      ,space
-                     #\[ ,@ref #\])
+                     "[" ,@ref "]")
               (ref . ,(if (null? ref)
                           label
                           ref))