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

Don't use source locator when it won't work.

Browse Source 
svn: r9278
This commit is contained in:
Sam Tobin-Hochstadt 2008-04-12 17:58:56 +00:00
parent 2de5845dbd
commit df6e038f26
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/private/tc-utils.ss
View File

@ -29,7 +29,9 @@
;(printf "orig: ~a~n" (syntax-object->datum omodule)) ;(printf "orig: ~a~n" (syntax-object->datum omodule))
;(printf "exp: ~a~n" (syntax-object->datum emodule)) ;(printf "exp: ~a~n" (syntax-object->datum emodule))
;(printf "stx (locate): ~a~n" (syntax-object->datum stx)) ;(printf "stx (locate): ~a~n" (syntax-object->datum stx))
(look-for-in-orig omodule emodule stx)) (if (and omodule emodule stx)
(look-for-in-orig omodule emodule stx)
stx))
;; produce a type error, using the current syntax ;; produce a type error, using the current syntax
(define (tc-error msg . rest) (define (tc-error msg . rest)