[Guile-commits] GNU Guile branch, master, updated. release_1-9-15-93-g533d821

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=533d8212af5476764a465a2814869172a32a9ead

The branch, master has been updated
       via  533d8212af5476764a465a2814869172a32a9ead (commit)
       via  d215190e5c1b540d3ec2fc0dbb51b2afa8ce1301 (commit)
      from  066a37a13eea6f1fb971c983cfe039df528edd9f (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 533d8212af5476764a465a2814869172a32a9ead
Author: Ludovic Courtès <address@hidden>
Date:   Mon Feb 14 13:48:08 2011 +0100

    Pass all the flags when building `gen-scmconfig' in a cross-compile setup.
    
    * libguile/Makefile.am (gen-scmconfig.$(OBJEXT)): When cross-compiling,
      pass all the CPPFLAGS and CFLAGS.

commit d215190e5c1b540d3ec2fc0dbb51b2afa8ce1301
Author: Ludovic Courtès <address@hidden>
Date:   Mon Feb 14 13:47:20 2011 +0100

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

-----------------------------------------------------------------------

Summary of changes:
 libguile/Makefile.am          |   12 +++++++-----
 module/system/repl/common.scm |    5 ++---
 2 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/libguile/Makefile.am b/libguile/Makefile.am
index 79f886b..c06d9ea 100644
--- a/libguile/Makefile.am
+++ b/libguile/Makefile.am
@@ -55,11 +55,13 @@ gen_scmconfig_SOURCES = gen-scmconfig.c
 ## Override default rule; this should be compiled for BUILD host.
 ## For some reason, OBJEXT does not include the dot
 gen-scmconfig.$(OBJEXT): gen-scmconfig.c
-       $(AM_V_GEN) \
-       if [ "$(cross_compiling)" = "yes" ]; then \
-               $(CC_FOR_BUILD) $(DEFS) $(DEFAULT_INCLUDES) $(AM_CPPFLAGS) -c 
-o $@ $<; \
-       else \
-               $(COMPILE) -c -o $@ $<; \
+       $(AM_V_GEN)                                                     \
+       if [ "$(cross_compiling)" = "yes" ]; then                       \
+               $(CC_FOR_BUILD) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \
+                 $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)     \
+                 -c -o $@ $<;                                          \
+       else                                                            \
+               $(COMPILE) -c -o $@ $<;                                 \
        fi
 
 ## Override default rule; this should run on BUILD host.
diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm
index 70232ab..24a583c 100644
--- 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))))


hooks/post-receive
-- 
GNU Guile