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

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

@ -53,6 +53,7 @@
;; 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
(let ([default-error-value->string-handler
(lambda (v len) (lambda (v len)
(unless (exact-nonnegative-integer? len) (unless (exact-nonnegative-integer? len)
(raise-argument-error 'default-error-value->string-handler (raise-argument-error 'default-error-value->string-handler
@ -60,7 +61,8 @@
len)) len))
(define o (open-output-string)) (define o (open-output-string))
(do-global-print 'default-error-value->string-handler v o 0 len) (do-global-print 'default-error-value->string-handler v o 0 len)
(get-output-string o)))) (get-output-string o))])
default-error-value->string-handler)))
(void (install-error-value->string-handler!)) (void (install-error-value->string-handler!))