[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-181-gf4b879e

[Andy Wingo]

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=f4b879e03bf217f4114b2997c0bdbe1008daf874

The branch, master has been updated
       via  f4b879e03bf217f4114b2997c0bdbe1008daf874 (commit)
      from  3fdc1d05aeb2c0851e696b8fd83a70b70c5eff5f (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 f4b879e03bf217f4114b2997c0bdbe1008daf874
Author: Andy Wingo <address@hidden>
Date:   Wed Jul 14 19:45:05 2010 +0200

    fix boostrapping error with srfi-1 (for the third time!)
    
    * module/ice-9/deprecated.scm (set-repl-prompt!): Avoid @, so as to
      avoid a bootstrapping error. Horrible.

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

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

diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index d809b73..8912801 100644
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -605,7 +605,12 @@ better yet, use the repl from `(system repl repl)'.")
   (issue-deprecation-warning
    "`set-repl-prompt!' is deprecated. Use `repl-default-prompt-set!' from
 the `(system repl common)' module.")
-  ((@ (system repl common) repl-default-prompt-set!) v))
+  ;; Avoid @, as when bootstrapping it will cause the (system repl common)
+  ;; module to be loaded at expansion time, which eventually loads srfi-1, but
+  ;; that fails due to an unbuilt supporting lib... grrrrrrrrr.
+  ((module-ref (resolve-interface '(system repl common))
+               'repl-default-prompt-set!)
+   v))
 
 (define (set-batch-mode?! arg)
   (cond


hooks/post-receive
-- 
GNU Guile