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)))
(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)))