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

boot-9 top-repl tweak

Browse source 
* module/ice-9/boot-9.scm (top-repl): More concisely drill down to
  start-repl.
This commit is contained in:
Andy Wingo 2010-06-01 22:20:57 +02:00
parent 749c2532e4
commit 3ece779a67
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/ice-9/boot-9.scm
View file

@ -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")