mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

fix boostrapping error with srfi-1 (for the third time!)

Browse source 
* module/ice-9/deprecated.scm (set-repl-prompt!): Avoid @, so as to
  avoid a bootstrapping error. Horrible.
This commit is contained in:
Andy Wingo 2010-07-14 19:45:05 +02:00
parent 3fdc1d05ae
commit f4b879e03b
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/ice-9/deprecated.scm
View file

@ -605,7 +605,12 @@ better yet, use the repl from `(system repl repl)'.")
(issue-deprecation-warning (issue-deprecation-warning
"`set-repl-prompt!' is deprecated. Use `repl-default-prompt-set!' from "`set-repl-prompt!' is deprecated. Use `repl-default-prompt-set!' from
the `(system repl common)' module.") 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) (define (set-batch-mode?! arg)
(cond (cond