mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

fix scm-error invocation on SIGINT in top-repl.scm

Browse source 
* module/ice-9/top-repl.scm (call-with-sigint): Pass '() as the format
  args when invoking scm-error, to ensure that the error is printable.
This commit is contained in:
Andy Wingo 2011-02-12 15:58:21 +01:00
parent 4a46bc2a5f
commit aae64b37e5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/top-repl.scm
View file

@ -35,7 +35,7 @@
(set! handler
(sigaction SIGINT
(lambda (sig)
(scm-error 'signal #f "User interrupt" #f
(scm-error 'signal #f "User interrupt" '()
(list sig))))))
thunk
(lambda ()