HomeAboutCodePastes

Paste on 2021-03-14T20:05:11

(define (canonicalize sexp)
    (let ((tempf (chicken.file#create-temporary-file)))
      (call-with-output-file tempf (cut write sexp <>))
      (compile-file#compile-file tempf options: '("-debug" "2" "-A") load: #f)
      (void)))

plain