From 86790f5345911cd102b8f1a74aa2f15dc06cf5db Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 29 Sep 2003 23:15:00 +0000
Subject: [PATCH] ..

original commit: c3bd33b670cc83def7ce05e9dddcbbd4a3c61680
---
 collects/mzlib/contract.ss | 21 +--------------------
 1 file changed, 1 insertion(+), 20 deletions(-)

diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss
index 502c292..6d85921 100644
--- a/collects/mzlib/contract.ss
+++ b/collects/mzlib/contract.ss
@@ -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