HomeAboutCodePastes

Paste on 2021-02-27T13:09:57

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

  (define-reader-ctor 'pt
    (lambda (x y)
      `(make-point ,x ,y)))

  (set-sharp-read-syntax! 'pt
    (lambda (p)
      `(make-point ,@(read p))))
  )

plain