diff --git a/core.rkt b/core.rkt index 0df6044..7c216f7 100644 --- a/core.rkt +++ b/core.rkt @@ -12,13 +12,13 @@ (string-append out-string line-ending))) (define (make-css-string p v) - (string-join (list (->string p) (->string v)) ": ")) + (format "~a: ~a;" p v)) (define (make-css-strings property-prefixes property-suffix values) ; general function for creating groups of css properties ; with browser prefixes and one value (define (map-suffix suffix prefixes) - (map (λ(prefix) (string-append prefix suffix)) prefixes)) + (map (λ (prefix) (format "~a~a" prefix suffix)) prefixes)) (define properties (map-suffix property-suffix property-prefixes))