Formatting.

This commit is contained in:
Sam Tobin-Hochstadt 2012-10-27 17:28:56 -07:00
parent 54301ad5ed
commit 7573fd7ee0

View File

@ -6,7 +6,9 @@
(define (traverse b)
(define (fail v)
(raise-blame-error (blame-swap b) v "Attempted to use a higher-order value passed as `Any` in untyped code"))
(raise-blame-error
(blame-swap b) v
"Attempted to use a higher-order value passed as `Any` in untyped code"))
(define (t v)
(define (wrap-struct s)