pull/160/head
Matthew Butterick 7 years ago
parent fdf5085997
commit 5dc6b8a26a

@ -1 +1 @@
1512356672 1512358475

@ -64,7 +64,7 @@
(with-syntax* ([default-name (format-id #'here "default-~a" #'name)] (with-syntax* ([default-name (format-id #'here "default-~a" #'name)]
[value (let ([v (syntax-local-eval #'default-name)]) [value (let ([v (syntax-local-eval #'default-name)])
(cond (cond
[(and (list? v) (andmap symbol? v) (> (length v) 5)) '(see below)] [(and (list? v) (andmap symbol? v) (> (length v) 5)) #`'#,'(see below)]
[(or (symbol? v) (list? v)) #`'#,v] [(or (symbol? v) (list? v)) #`'#,v]
[(procedure? v) '(λ (path) #f)] [(procedure? v) '(λ (path) #f)]
[else v]))] [else v]))]

Loading…
Cancel
Save