From f4b879e03bf217f4114b2997c0bdbe1008daf874 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 14 Jul 2010 19:45:05 +0200 Subject: [PATCH] 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. --- module/ice-9/deprecated.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm index d809b736d..8912801c3 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