From f8d797612954fa8fb09349f67c5e1414c01cddbe Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Tue, 8 Sep 2015 00:16:09 -0400 Subject: [PATCH] print as # instead of # --- lens/private/base/make-lens.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lens/private/base/make-lens.rkt b/lens/private/base/make-lens.rkt index be0e4cc..aebdfa4 100644 --- a/lens/private/base/make-lens.rkt +++ b/lens/private/base/make-lens.rkt @@ -15,7 +15,10 @@ [(define (lens-view this target) ((lens-struct-get this) target)) (define (lens-set this target x) - ((lens-struct-set this) target x))]) + ((lens-struct-set this) target x))] + #:methods gen:custom-write + [(define (write-proc this out mode) + (write-string "#" out))]) (define (make-lens getter setter) (lens-struct getter setter)) @@ -27,4 +30,5 @@ (check-exn exn:fail? (thunk (first-lens '(a b c)))) (let-lens (view-first setter-first) first-lens '(1 2 3 4 5) (check-eqv? view-first 1) - (check-equal? (setter-first 'a) '(a 2 3 4 5)))) + (check-equal? (setter-first 'a) '(a 2 3 4 5))) + (check-equal? (format "~v" first-lens) "#"))