diff options
author | Andy Wingo <wingo@pobox.com> | 2011-02-12 15:58:21 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-02-12 15:58:21 +0100 |
commit | aae64b37e57eda2354ecffa54a213cfa722543de (patch) | |
tree | 9e48613f8364f48edb59b7e6ab9413020bac2516 | |
parent | 4a46bc2a5f9a0d992c67e0be3eab64077b8421a6 (diff) | |
download | guile-aae64b37e57eda2354ecffa54a213cfa722543de.tar.gz |
fix scm-error invocation on SIGINT in top-repl.scm
* 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.
-rw-r--r-- | module/ice-9/top-repl.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/top-repl.scm b/module/ice-9/top-repl.scm index 291d9e538..64c023997 100644 --- a/module/ice-9/top-repl.scm +++ b/module/ice-9/top-repl.scm @@ -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 () |