Paste on 2021-02-27T13:04:08

(module testsharp ()
  (import scheme
          chicken.base
          chicken.read-syntax)
  (define-record point x y)

  (define-reader-ctor 'pt make-point)

  (set-sharp-read-syntax! 'pt
    (lambda (p)
      (apply make-point (read p)))))