HomeAboutCodePastes

Paste on 2021-02-27T12:57:14

(module testsharp ()
  (import scheme
          chicken.string
          chicken.read-syntax)

  (define-reader-ctor 'str ->string)

  (set-sharp-read-syntax! 'str
    (lambda (p)
      (->string (read p)))))

plain