~ chicken-core (chicken-5) eaa8911fb1ba6a41ed5a9dd7b2f5433e64cff466

commit eaa8911fb1ba6a41ed5a9dd7b2f5433e64cff466
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Mar 12 18:02:47 2023 +0100
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Mon Mar 13 15:48:13 2023 +0100

    drop "b" runtime option
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/chicken.h b/chicken.h
index 9d15ab74..928066ed 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1696,7 +1696,6 @@ C_varextern C_TLS jmp_buf C_restart;
 C_varextern C_TLS void *C_restart_address;
 C_varextern C_TLS int C_entry_point_status;
 C_varextern C_TLS int C_gui_mode;
-C_varextern C_TLS int C_enable_repl;
 
 C_varextern C_TLS void *C_restart_trampoline;
 C_varextern C_TLS void (*C_pre_gc_hook)(int mode);
diff --git a/csi.scm b/csi.scm
index 765d8c40..ea618521 100644
--- a/csi.scm
+++ b/csi.scm
@@ -260,8 +260,6 @@ EOF
   (or (##core#inline "C_i_tty_forcedp")
       (##sys#tty-port? ##sys#standard-input)))
 
-(set! ##sys#break-on-error #f)
-
 (set! ##sys#read-prompt-hook
   (let ([old ##sys#read-prompt-hook])
     (lambda ()
diff --git a/library.scm b/library.scm
index 9fc663e0..827666d5 100644
--- a/library.scm
+++ b/library.scm
@@ -5135,8 +5135,6 @@ EOF
 (define (signal x)
   (##sys#current-exception-handler x) )
 
-(define ##sys#break-on-error (foreign-value "C_enable_repl" bool))
-
 (define ##sys#error-handler
   (make-parameter
    (let ([string-append string-append])
@@ -5161,11 +5159,6 @@ EOF
 			 args)])))
 	      (##sys#print #\newline #f ##sys#standard-error)
 	      (print-call-chain ##sys#standard-error)
-	      (when (and ##sys#break-on-error (##sys#symbol-has-toplevel-binding? 'chicken.repl#repl))
-		;; Hack to avoid hard / cyclic dependency
-		((##sys#slot 'chicken.repl#repl 0))
-		(##sys#print #\newline #f ##sys#standard-error)
-		(##core#inline "C_exit_runtime" _ex_software))
 	      (##core#inline "C_halt" #f))
 	     (else
 	      (let ((out (open-output-string)))
diff --git a/manual/Using the compiler b/manual/Using the compiler
index 51cd9ffc..30e5ed2a 100644
--- a/manual/Using the compiler	
+++ b/manual/Using the compiler	
@@ -231,8 +231,6 @@ by the startup code and will not be contained in the result of
 
 ; {{-:ANUMBER}} : Specifies fixed ''temporary stack'' size. This is used mostly for {{apply}}. If you supply a zero size (the default), the temporary stack will be dynamically reallocated as needed.
 
-; {{-:b}} : Enter a read-eval-print-loop when an error is encountered.
-
 ; {{-:B}} : Sounds a bell (by writing ASCII 7 to stdout) on every major garbage collection.
 
 ; {{-:c}} : Forces console mode. Currently this is only used in the interpreter ({{csi}}) to force output of the {{#;N>}} prompt even if stdin is not a terminal (for example if running in an {{emacs}} buffer under Windows).
diff --git a/runtime.c b/runtime.c
index 76f0e12c..aa64092b 100644
--- a/runtime.c
+++ b/runtime.c
@@ -337,7 +337,6 @@ C_TLS C_word (*C_debugger_hook)(C_DEBUG_INFO *cell, C_word c, C_word *av, C_char
 C_TLS int
   C_gui_mode = 0,
   C_abort_on_thread_exceptions,
-  C_enable_repl,
   C_interrupts_enabled,
   C_disable_overflow_check,
   C_heap_size_is_fixed,
@@ -1376,7 +1375,6 @@ void CHICKEN_parse_command_line(int argc, char *argv[], C_word *heap, C_word *st
 		 " -:tSIZE          set symbol-table size\n"
                  " -:fSIZE          set maximal number of pending finalizers\n"
 		 " -:x              deliver uncaught exceptions of other threads to primordial one\n"
-		 " -:b              enter REPL on error\n"
 		 " -:B              sound bell on major GC\n"
 		 " -:G              force GUI mode\n"
 		 " -:aSIZE          set trace-buffer/call-chain size\n"
@@ -1494,10 +1492,6 @@ void CHICKEN_parse_command_line(int argc, char *argv[], C_word *heap, C_word *st
 	  C_abort_on_thread_exceptions = 1;
 	  break;
 
-	case 'b':
-	  C_enable_repl = 1;
-	  break;
-
 	default: panic(C_text("illegal runtime option"));
 	}
       }