From e7814b63a73776f0b3ddff8ccb2d58e9f5978c90 Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Sun, 6 Jun 2010 16:50:10 -0400
Subject: [PATCH] Renamed call/debug from unstable/debug to debugf.

---
 collects/typed-scheme/utils/tc-utils.rkt  | 2 +-
 collects/unstable/debug.rkt               | 6 +++---
 collects/unstable/scribblings/debug.scrbl | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/collects/typed-scheme/utils/tc-utils.rkt b/collects/typed-scheme/utils/tc-utils.rkt
index f1559e47f0..b946a22a06 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))))
diff --git a/collects/unstable/debug.rkt b/collects/unstable/debug.rkt
index 612457da6c..b77fdf45d3 100644
--- a/collects/unstable/debug.rkt
+++ b/collects/unstable/debug.rkt
@@ -2,7 +2,7 @@
 
 (provide debug
          dprintf
-         call/debug
+         debugf
          begin/debug
          define/debug
          define/private/debug
@@ -112,7 +112,7 @@
         #:source (quote-srcloc #,stx)
         (begin (debug term) ...))]))
 
-(define-syntax (call/debug stx)
+(define-syntax (debugf stx)
 
   (define-splicing-syntax-class argument
     #:attributes ([debugged 1])
@@ -124,7 +124,7 @@
   (syntax-parse stx
     [(_ f:expr arg:argument ...)
      #`(debug
-        #:name 'call/debug
+        #:name 'debugf
         #:source (quote-srcloc #,stx)
         (#%app (debug f) arg.debugged ... ...))]))
 
diff --git a/collects/unstable/scribblings/debug.scrbl b/collects/unstable/scribblings/debug.scrbl
index 2b364aa644..889952da6c 100644
--- a/collects/unstable/scribblings/debug.scrbl
+++ b/collects/unstable/scribblings/debug.scrbl
@@ -46,7 +46,7 @@ Constructs a message in the same manner as @scheme[format] and writes it to
 }
 
 @defform/subs[
-(call/debug function-expr argument ...)
+(debugf function-expr argument ...)
 ([argument argument-expr (code:line argument-keyword argument-expr)])
 ]{
 
@@ -54,7 +54,7 @@ Logs debugging information for @scheme[(#%app function-expr argument ...)],
 including the evaluation and results of the function and each argument.
 
 @examples[#:eval (eval/require 'unstable/debug)
-(call/debug + 1 2 3)
+(debugf + 1 2 3)
 ]
 
 }