diff options
| author | Andy Wingo <wingo@pobox.com> | 2010-06-01 22:20:57 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2010-06-02 22:19:40 +0200 |
| commit | 3ece779a677d0316c506c30051a928ba40060479 (patch) | |
| tree | db2caa5fcb58d39221109b7b56ed98e9e238e09c | |
| parent | 749c2532e4c84c7bb1f40e2633ae47b99fd7322c (diff) | |
| download | guile-3ece779a677d0316c506c30051a928ba40060479.tar.gz | |
boot-9 top-repl tweak
* module/ice-9/boot-9.scm (top-repl): More concisely drill down to
start-repl.
| -rw-r--r-- | module/ice-9/boot-9.scm | 3 |
1 files changed, 1 insertions, 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") |