[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.11-55-g8857e27

[Ian Price]

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=8857e271d810623868509f837d17613195f6528c

The branch, stable-2.0 has been updated
       via  8857e271d810623868509f837d17613195f6528c (commit)
      from  ffd3e55cfd12a3559621e3130d613d319243512d (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 8857e271d810623868509f837d17613195f6528c
Author: Ian Price <address@hidden>
Date:   Wed Jul 30 18:58:16 2014 +0100

    Prevent add-to-load-path from adding duplicate entries
    
    * module/ice-9/boot-9.scm (add-to-load-path): Remove argument from
      %load-path (if it exists) before pushing. This also means that the
      `elt' will always be at the front of %load-path.

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

Summary of changes:
 module/ice-9/boot-9.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index b2cf481..872594b 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -1748,7 +1748,7 @@ VALUE."
 (define-syntax-rule (add-to-load-path elt)
   "Add ELT to Guile's load path, at compile-time and at run-time."
   (eval-when (expand load eval)
-    (set! %load-path (cons elt %load-path))))
+    (set! %load-path (cons elt (delete elt %load-path)))))
 
 (define %load-verbosely #f)
 (define (assert-load-verbosity v) (set! %load-verbosely v))


hooks/post-receive
-- 
GNU Guile