From 268190290adc436710ea995dd54a4796f36a3e2b Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 17 Dec 2018 11:41:08 -0800 Subject: [PATCH] convert --- xenomorph/xenomorph/string.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/xenomorph/xenomorph/string.rkt b/xenomorph/xenomorph/string.rkt index 5c6c1cf9..d1247d9e 100644 --- a/xenomorph/xenomorph/string.rkt +++ b/xenomorph/xenomorph/string.rkt @@ -49,7 +49,7 @@ https://github.com/mbutterick/restructure/blob/master/src/String.coffee (pos port (+ (pos port) adjustment)))) (define/augment (xxencode val-arg port [parent #f]) - (define val (format "~a" val-arg)) + (define val (if (string? val-arg) val-arg (format "~a" val-arg))) (define encoding (if (procedure? @encoding) (or (@encoding (and parent (dict-ref parent val)) 'ascii)) @encoding)) @@ -62,7 +62,8 @@ https://github.com/mbutterick/restructure/blob/master/src/String.coffee (define string-terminator (if (not @len) (bytes 0) (bytes))) ; null terminated when no len (bytes-append encoded-str string-terminator)) - (define/augment (xxsize [val #f] [parent #f]) + (define/augment (xxsize [val-arg #f] [parent #f]) + (define val (if (string? val-arg) val-arg (format "~a" val-arg))) (cond [val (define encoding (if (procedure? @encoding) (or (@encoding (and parent (dict-ref parent val)) 'ascii))