From 14b919c9428d1ba89ad95630b1b935be52da562f Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Sun, 6 Jun 2010 16:50:10 -0400 Subject: [PATCH] Renamed call/debug from unstable/debug to debugf. original commit: e7814b63a73776f0b3ddff8ccb2d58e9f5978c90 --- 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 f1559e47..b946a22a 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? (call/debug syntax-source-module e) (call/debug syntax-source-module (orig-module-stx)))) + #;(and (orig-module-stx) (eq? (debugf syntax-source-module e) (debugf 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))))