mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

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

Browse source 
* module/system/repl/common.scm (repl-compile): Leave the default
  `*current-warning-prefix*'.
This commit is contained in:
Ludovic Courtès 2011-02-14 13:47:20 +01:00
parent 066a37a13e
commit d215190e5c
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/system/repl/common.scm
View file

@ -159,9 +159,8 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more details.")
(define (repl-compile repl form) (define (repl-compile repl form)
(let ((from (repl-language repl)) (let ((from (repl-language repl))
(opts (repl-compile-options repl))) (opts (repl-compile-options repl)))
(with-fluids ((*current-warning-prefix* "")) ; XXX: Keep ";;; "? (compile form #:from from #:to 'objcode #:opts opts
(compile form #:from from #:to 'objcode #:opts opts #:env (current-module))))
#:env (current-module)))))
(define (repl-parse repl form) (define (repl-parse repl form)
(let ((parser (language-parser (repl-language repl)))) (let ((parser (language-parser (repl-language repl))))