remove branch

8 years ago · 7e64eea4d7
parent 1b3db55cf2
commit 7e64eea4d7
1 changed files with 1 additions and 2 deletions
--- a/quad/quad/split.rkt
+++ b/quad/quad/split.rkt
@ -5,8 +5,7 @@
  (flatten
   (let loop ([x x][attrs default-attrs])
     (cond
-       [(char? x) (quad attrs x)]
+       [(string? x) (map (λ(xi) (quad attrs xi)) (string->list x))]
       [(string? x) (map (λ(xi) (loop xi attrs)) (string->list x))]
       [else
        (define x-attrs (quad-attrs x))
        (for ([i (in-range (vector-length attrs))])