From 47c2288eb696e9f9be9a2a9802489601bacb97cc Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Wed, 1 May 2019 14:07:06 -0400 Subject: [PATCH] use `(or/c #t #f 0 1)` even though it's less accurate, since that contract would allow inexact numbers like 0.0 and 1.0 --- pkgs/racket-doc/scribblings/reference/custom-write.scrbl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-doc/scribblings/reference/custom-write.scrbl b/pkgs/racket-doc/scribblings/reference/custom-write.scrbl index aed7a400f7..56bf086a1e 100644 --- a/pkgs/racket-doc/scribblings/reference/custom-write.scrbl +++ b/pkgs/racket-doc/scribblings/reference/custom-write.scrbl @@ -89,7 +89,7 @@ This function is often used in conjunction with @racket[make-constructor-style-p (make-constructor-style-printer (lambda (obj) 'point) (lambda (obj) (list (point-x obj) (point-y obj)))))])) - + (print (point 1 2)) (write (point 1 2))] @@ -108,7 +108,7 @@ property, @racket[#f] otherwise.} @defproc[(custom-write-accessor [v custom-write?]) - (custom-write? output-port? (or/c boolean? (integer-in 0 1)) . -> . any)]{ + (custom-write? output-port? (or/c #t #f 0 1) . -> . any)]{ Returns the custom-write procedure associated with @racket[v].}