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.

diff --git a/module/ice-9/top-repl.scm b/module/ice-9/top-repl.scm
index 291d9e5..64c0239 100644 (file)
--- 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 ()