define-logger: make (define-logger X)' define X-logger'

collects/racket/private/logger.rkt

@@ -45,8 +45,8 @@
                        [log-X-warning (mk 'warning)]
                        [log-X-info (mk 'info)]
                        [log-X-debug (mk 'debug)]
-                       [current-X-logger 
+                       [X-logger 
-                        (datum->syntax X (string->symbol (format "current-~a-logger" (syntax-e X))) X)]
+                        (datum->syntax X (string->symbol (format "~a-logger" (syntax-e X))) X)]
                        [X X])
            #'(begin
                (define X-logger (make-logger 'X (current-logger)))

collects/scribblings/reference/logging.scrbl

@@ -105,9 +105,11 @@ Defines @racketkeywordfont{log-}@racket[id]@racketkeywordfont{-fatal},
 @racketkeywordfont{log-}@racket[id]@racketkeywordfont{-info}, and
 @racketkeywordfont{log-}@racket[id]@racketkeywordfont{-debug} as forms
 like @racket[log-fatal], @racket[log-error],@racket[log-warning],
-@racket[log-info], and @racket[log-debug]. The new forms use a logger named
+@racket[log-info], and @racket[log-debug]. The @racket[define-logger]
-@racket['@#,racket[id]] that is a child of @racket[current-logger],
+form also defines @racket[id]@racketidfont{-logger}, which is a logger named
-instead of using @racket[(current-logger)] directly. The new logger is
+@racket['@#,racket[id]] that is a child of @racket[(current-logger)];
+the @racketkeywordfont{log-}@racket[id]@racketkeywordfont{-fatal},
+@|etc| forms use this new logger. The new logger is
 created when @racket[define-logger] is evaluated.}
 
 @; ----------------------------------------

collects/tests/racket/logger.rktl

@@ -78,6 +78,7 @@
 
 (let ()
   (define-logger test)
+  (test #t logger? test-logger)
   (define r (make-log-receiver (current-logger) 'warning 'test))
   (log-test-debug (/ 0))
   (log-test-debug "debug")