From 83611db2e261460ff14015e3e61263ed254408fb Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 31 Aug 2018 16:26:49 -0700 Subject: [PATCH] exterminate --- core.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))