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

Replaced unstable/debug with unstable/cce/debug.

Browse Source 
original commit: ddc889532e5c6a20c9639d9afcbe1ac874937867
This commit is contained in:
Carl Eastlund 2010-05-30 22:54:17 -04:00
parent 092d4e3c3d
commit 429f5fa06b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/utils/tc-utils.rkt
View File

@ -47,7 +47,7 @@ don't depend on any other portion of the system
(when (and (warn-unreachable?)
(log-level? l 'warning)
(and (syntax-transforming?) (syntax-original? (syntax-local-introduce e)))
#;(and (orig-module-stx) (eq? (debug/call syntax-source-module e) (debug/call syntax-source-module (orig-module-stx))))
#;(and (orig-module-stx) (eq? (call/debug syntax-source-module e) (call/debug syntax-source-module (orig-module-stx))))
#;(syntax-source-module stx))
(log-message l 'warning (format "Typed Scheme has detected unreachable code: ~e" (syntax->datum (locate-stx e)))
e))))