From 429f5fa06be9c9818025076ec814a50890a1b3e0 Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Sun, 30 May 2010 22:54:17 -0400 Subject: [PATCH] Replaced unstable/debug with unstable/cce/debug. original commit: ddc889532e5c6a20c9639d9afcbe1ac874937867 --- collects/typed-scheme/utils/tc-utils.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/utils/tc-utils.rkt b/collects/typed-scheme/utils/tc-utils.rkt index cea09441..f1559e47 100644 --- a/collects/typed-scheme/utils/tc-utils.rkt +++ b/collects/typed-scheme/utils/tc-utils.rkt @@ -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))))