Renamed call/debug from unstable/debug to debugf.

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))))

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 ... ...))]))
 

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)
 ]
 
 }