Leave the default `*current-warning-prefix*' at the REPL.

* module/system/repl/common.scm (repl-compile): Leave the default
  `*current-warning-prefix*'.

diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm
index 70232ab..24a583c 100644 (file)
--- a/module/system/repl/common.scm
+++ b/module/system/repl/common.scm
@@ -159,9 +159,8 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more details.")
 (define (repl-compile repl form)
   (let ((from (repl-language repl))
         (opts (repl-compile-options repl)))
-    (with-fluids ((*current-warning-prefix* ""))  ; XXX: Keep ";;; "?
-      (compile form #:from from #:to 'objcode #:opts opts
-               #:env (current-module)))))
+    (compile form #:from from #:to 'objcode #:opts opts
+             #:env (current-module))))
 
 (define (repl-parse repl form)
   (let ((parser (language-parser (repl-language repl))))