suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: a35cae5e35ee20c4c401a53312c54f5a0bb8901d
This commit is contained in:
Robby Findler 2005-02-15 14:43:20 +00:00
parent 08ef8ef33c
commit 62593d59ea
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/contract.ss
View File

@ -678,7 +678,8 @@ add struct contracts for immutable structs?
(string-append one-line " ")
(let ([sp (open-output-string)])
(newline sp)
(pretty-print contract-sexp sp)
(parameterize ([pretty-print-print-line print-contract-liner])
(pretty-print contract-sexp sp))
(get-output-string sp))))]
[specific-blame
(let ([datum (syntax-object->datum src-info)])
@ -705,6 +706,15 @@ add struct contracts for immutable structs?
(syntax-span src-info)))
'())))))
(define print-contract-liner
(let ([default (pretty-print-print-line)])
(λ (line port ol cols)
(+ (default line port ol cols)
(if line
(begin (display " " port)
2)
0)))))
;; src-info-as-string : (union syntax #f) -> string
(define (src-info-as-string src-info)
(if (syntax? src-info)