suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs & io: name for default error value conversion handler

Browse Source
This commit is contained in:
Matthew Flatt 2019-11-26 08:55:35 -07:00
parent e15a6f99d4
commit 98f0c16b8c
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
racket/src/io/error/main.rkt
View File

@ -52,15 +52,17 @@
;; Install the default error-value->string handler, ;; Install the default error-value->string handler,
;; replacing the non-working primitive placeholder ;; replacing the non-working primitive placeholder
(define (install-error-value->string-handler!) (define (install-error-value->string-handler!)
(error-value->string-handler (error-value->string-handler
(lambda (v len) (let ([default-error-value->string-handler
(unless (exact-nonnegative-integer? len) (lambda (v len)
(raise-argument-error 'default-error-value->string-handler (unless (exact-nonnegative-integer? len)
"exact-nonnegative-integer?" (raise-argument-error 'default-error-value->string-handler
len)) "exact-nonnegative-integer?"
(define o (open-output-string)) len))
(do-global-print 'default-error-value->string-handler v o 0 len) (define o (open-output-string))
(get-output-string o)))) (do-global-print 'default-error-value->string-handler v o 0 len)
(get-output-string o))])
default-error-value->string-handler)))
(void (install-error-value->string-handler!)) (void (install-error-value->string-handler!))