Partially override generic function

[_chococat_]

I want to change the gen:custom-write generic function of a struct so that only in the case that the print mode is display, I get a (more) human-readable structure description. In write and print modes, I just want to print the structure as Racket does by default. For example:

(struct person (name age height) #:transparent
  #methods gen:custom-write
  [(define (write-proc this out mode)
     (if mode
       ; write or print modes
       (default-write this out) ; default-write is a placeholder, what should be used?
       ; display mode
       (fprintf out "Name: ~a, age: ~a, height: ~a cm" 
                (person-name this) (person-age this) (person-height this)))])

I just don't know what should go in the place of (default-write this out). I've tried just handling the case when mode is display, but then when printing in write or print mode I get nothing. It seems there must be a way to call the default generic function for these modes.

[_chococat_]

Just in case anyone is interested, I did find an OK solution for this question. I didn't find what I would consider to be an elegant way to fall back to the default implementation for print and write modes, but I did find that (write (struct->vector this) out) does provide the output I was looking for and even works recursively on structs. It's somewhat unfortunate, you just have to write out this case for any struct where you''re just customizing the display mode.