|
@@ -84,9 +84,16 @@
|
|
|
|
|
|
(define (asset name table)
|
|
|
(define (mk-feature feature)
|
|
|
- (list (car feature) (apply string-append (cdr feature))))
|
|
|
+ (list (car feature) (smart-string-append (cdr feature))))
|
|
|
(let [(stuff (map mk-feature table))]
|
|
|
`(asset ,name ,stuff)))
|
|
|
+
|
|
|
+(define (smart-string-append list)
|
|
|
+ (define (ensure-leading-space str)
|
|
|
+ (if (char-whitespace? (string-ref str 0))
|
|
|
+ str
|
|
|
+ (string-append " " str)))
|
|
|
+ (apply string-append (cons (car list) (map ensure-leading-space (cdr list)))))
|
|
|
|
|
|
|
|
|
(define-syntax-rule [define-asset-path name . table]
|