From 3ece779a677d0316c506c30051a928ba40060479 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 1 Jun 2010 22:20:57 +0200
Subject: [PATCH] boot-9 top-repl tweak

* module/ice-9/boot-9.scm (top-repl): More concisely drill down to
  start-repl.
---
 module/ice-9/boot-9.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 5e6c44110..c6b761f22 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -3836,8 +3836,7 @@ module '(ice-9 q) '(make-q q-length))}."
     ;; scmsigs.c scm_sigaction_for_thread), so the handlers setup here have
     ;; no effect.
     (let ((old-handlers #f)
-          (start-repl (module-ref (resolve-interface '(system repl repl))
-                                  'start-repl))
+          (start-repl (@ (system repl repl) start-repl))
           (signals (if (provided? 'posix)
                        `((,SIGINT . "User interrupt")
                          (,SIGFPE . "Arithmetic error")