From 7ef914be064fc4bf599313f99f321eba613231d2 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Wed, 13 Nov 2013 22:30:37 -0800
Subject: [PATCH] update

---
 library/css/math.rkt | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/library/css/math.rkt b/library/css/math.rkt
index 1890fde..4e7d003 100644
--- a/library/css/math.rkt
+++ b/library/css/math.rkt
@@ -12,7 +12,7 @@
 
 (define/contract (cssqish? x)
   (any/c . -> . boolean?)
-  (->boolean (or (cssq? x) (cssqish->cssq x))))
+  (->boolean (or (cssq? x) (string? x))))
 
 (define/contract (string->unit x)
   (string? . -> . css-unit?)
@@ -20,7 +20,8 @@
       x
       (error 'string->unit "'~a' not a valid css unit" x)))
 
-(define (cssqish->cssq x)
+(define/contract (cssqish->cssq x)
+  (cssqish? . -> . cssq?)
   (cond
     [(cssq? x) x]
     [else (begin