15 lines
271 B
Scheme
15 lines
271 B
Scheme
|
|
(module make-sig mzscheme
|
|
(require (lib "unitsig.ss"))
|
|
|
|
(provide make^)
|
|
|
|
(define-signature make^
|
|
(make/proc
|
|
make-print-checking
|
|
make-print-dep-no-line
|
|
make-print-reasons
|
|
make-notify-handler
|
|
(struct exn:fail:make (target orig-exn)))))
|
|
|