+ int tmp;
+ int fno;
+ SELECT_TYPE readset;
+ struct timeval timeout;
+
+ rl_insert (x, k);
+
+ /* Did we just insert a quoted paren? If so, then don't bounce. */
+ if (rl_point - 1 >= 1
+ && rl_line_buffer[rl_point - 2] == '\\')
+ return 0;
+
+ tmp = 500000;
+ timeout.tv_sec = tmp / 1000000;
+ timeout.tv_usec = tmp % 1000000;
+ FD_ZERO (&readset);
+ fno = fileno (rl_instream);
+ FD_SET (fno, &readset);
+
+ if (rl_point > 1)
+ {
+ tmp = rl_point;
+ rl_point = find_matching_paren (k);
+ if (rl_point > -1)
+ {
+ rl_redisplay ();
+ scm_std_select (fno + 1, &readset, NULL, NULL, &timeout);
+ }
+ rl_point = tmp;
+ }
+ return 0;
+}
+
+static void
+init_gacela_client ()
+{
+ /* init bouncing parens */
+ rl_bind_key (')', match_paren);
+ rl_bind_key (']', match_paren);
+ rl_bind_key ('}', match_paren);
+
+ /* SIGINT */
+ scm_c_eval_string ("(sigaction SIGINT (lambda (sig) (format #t \"ERROR: User interrupt~%ABORT: (signal)~%\")))");