diff --git a/xenomorph/xenomorph/string.rkt b/xenomorph/xenomorph/string.rkt index d1247d9e..758798e7 100644 --- a/xenomorph/xenomorph/string.rkt +++ b/xenomorph/xenomorph/string.rkt @@ -63,7 +63,10 @@ https://github.com/mbutterick/restructure/blob/master/src/String.coffee (bytes-append encoded-str string-terminator)) (define/augment (xxsize [val-arg #f] [parent #f]) - (define val (if (string? val-arg) val-arg (format "~a" val-arg))) + (define val (cond + [(string? val-arg) val-arg] + [(not val-arg) #false] + [else (format "~a" val-arg)])) (cond [val (define encoding (if (procedure? @encoding) (or (@encoding (and parent (dict-ref parent val)) 'ascii))