print tweak

10 years ago · a9edaea926
parent f7c185a508
commit a9edaea926
1 changed files with 1 additions and 1 deletions
--- a/csp/domain.rkt
+++ b/csp/domain.rkt
@ -11,7 +11,7 @@
    (init-field set)
    (field [_list set][_hidden null][_states null])
    
-    (define (repr) (format "<Domain ~v>" _list))
+    (define (repr) (format "<domain% ~v>" _list))
    (define/public (custom-print out quoting-depth) (print (repr) out))
    (define/public (custom-display out) (displayln (repr) out))
    (define/public (custom-write out) (write (repr) out))