[db] watch for nested wildcard selectors

Probably don't need the old (eq? '*) case, but keeping it anyway
This commit is contained in:
ben 2016-03-09 21:46:59 -05:00
parent ada69b0d58
commit 11015f40a4

View File

@ -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]