From 7e64eea4d70eefab41c8ac128e7ddc5b29fa33c2 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 16 Jun 2016 11:51:11 -0700
Subject: [PATCH] remove branch

---
 quad/quad/split.rkt | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/quad/quad/split.rkt b/quad/quad/split.rkt
index e0e3e158..f4b83473 100644
--- 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) (loop xi attrs)) (string->list x))]
+       [(string? x) (map (λ(xi) (quad attrs xi)) (string->list x))]
        [else
         (define x-attrs (quad-attrs x))
         (for ([i (in-range (vector-length attrs))])