From 11015f40a45a26c5cef773835ab5aa5163b3073b Mon Sep 17 00:00:00 2001
From: ben <benjaminlgreenman@gmail.com>
Date: Wed, 9 Mar 2016 21:46:59 -0500
Subject: [PATCH] [db] watch for nested wildcard selectors

Probably don't need the old (eq? '*) case, but keeping it anyway
---
 private/db/schema.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/private/db/schema.rkt b/private/db/schema.rkt
index e7289f0..f6ac43f 100644
--- a/private/db/schema.rkt
+++ b/private/db/schema.rkt
@@ -66,7 +66,8 @@
 
 (define (resolve-wildcard tbl-schema row)
   (cond
-   [(eq? row '*)
+   [(or (eq? row '*)
+        (and (list? row) (not (null? row)) (null? (cdr row)) (eq? '* (car row))))
     (map car tbl-schema)]
    [(list? row)
     row]