diff --git a/xenomorph/xenomorph/string.rkt b/xenomorph/xenomorph/string.rkt index 4966995e..72db143c 100644 --- a/xenomorph/xenomorph/string.rkt +++ b/xenomorph/xenomorph/string.rkt @@ -95,7 +95,7 @@ https://github.com/mbutterick/restructure/blob/master/src/String.coffee [len-arg #f] [enc-arg #f] #:length [len-kwarg #f] - #:encoding [enc-kwarg #f] + #:encoding [enc-kwarg 'utf8] #:pre-encode [pre-proc #f] #:post-decode [post-proc #f] #:base-class [base-class x:string%]) @@ -112,7 +112,7 @@ https://github.com/mbutterick/restructure/blob/master/src/String.coffee (define len (or len-arg len-kwarg)) (unless (length-resolvable? len) (raise-argument-error 'x:string "resolvable length" len)) - (define encoding (or enc-arg enc-kwarg 'ascii)) + (define encoding (or enc-arg enc-kwarg)) (unless (or (supported-encoding? encoding) (procedure? encoding)) (raise-argument-error 'x:string "valid encoding value" encoding)) (new (generate-subclass base-class pre-proc post-proc) diff --git a/xenomorph/xenomorph/symbol.rkt b/xenomorph/xenomorph/symbol.rkt index a75e01d5..495831f2 100644 --- a/xenomorph/xenomorph/symbol.rkt +++ b/xenomorph/xenomorph/symbol.rkt @@ -24,7 +24,7 @@ [len-arg #f] [enc-arg #f] #:length [len-kwarg #f] - #:encoding [enc-kwarg #f] + #:encoding [enc-kwarg 'utf8] #:pre-encode [pre-proc #f] #:post-decode [post-proc #f] #:base-class [base-class x:symbol%]) @@ -41,7 +41,7 @@ (define len (or len-arg len-kwarg)) (unless (length-resolvable? len) (raise-argument-error 'x:symbol "resolvable length" len)) - (define encoding (or enc-arg enc-kwarg 'utf8)) + (define encoding (or enc-arg enc-kwarg)) (unless (or (supported-encoding? encoding) (procedure? encoding)) (raise-argument-error 'x:symbol "valid encoding value" encoding)) (new (generate-subclass base-class pre-proc post-proc)