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

..

Browse Source 
original commit: c3bd33b670cc83def7ce05e9dddcbbd4a3c61680
This commit is contained in:
Robby Findler 2003-09-29 23:15:00 +00:00
parent 76909a5100
commit 86790f5345
1 changed files with 1 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/mzlib/contract.ss
View File

@ -108,26 +108,7 @@
(define-syntax name
(make-set!-transformer
(lambda (stx)
;; build-src-loc-string/unk : syntax -> (union #f string)
(define (build-src-loc-string/unk stx)
(let ([source (syntax-source stx)]
[line (syntax-line stx)]
[col (syntax-column stx)]
[pos (syntax-position stx)])
(cond
[(and (string? source) line col)
(format "~a: ~a.~a" source line col)]
[(and line col)
(format "~a.~a" line col)]
[(and (string? source) pos)
(format "~a: ~a" source pos)]
[pos
(format "~a" pos)]
[else #f])))
(with-syntax ([neg-blame-str (or (build-src-loc-string/unk stx)
"")])
(with-syntax ([neg-blame-str (or (a:build-src-loc-string stx) "")])
(syntax-case stx (set!)
[(set! _ arg)
(raise-syntax-error 'define/contract