PasteRack.org
Paste # 5245
2019-05-19 22:43:30

Fork as a new paste.

Paste viewed 122 times.


Embed:

print-pair-curly-braces

  1. #lang racket
  2.  
  3. (struct myvector (x y z) #:transparent)
  4.  
  5. (print (vector 1 2 3))
  6. (print (myvector 1 2 3))
  7. (print (vector (myvector 1 2 3)))
  8.  
  9. (newline)
  10.  
  11. (parameterize ([print-pair-curly-braces #t])
  12.   (print (vector 1 2 3))
  13.   (print (myvector 1 2 3))
  14.   (print (vector (myvector 1 2 3))))

=>

'#(1 2 3)

(myvector 1 2 3)

(vector (myvector 1 2 3))

'#(1 2 3){myvector 1 2 3}(vector {myvector 1 2 3})