From 22e93e0611cee22842a57febf8286741584c94de Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Tue, 11 Oct 2016 22:40:49 +0200
Subject: [PATCH 5/9] Remove a few more semi-unused fudge factors.

Fudges 8 (words per double), 9 (latency), 10 (clocks per sec),
23 (startup time), 29 (trace buffer size) were used nowhere.

Remove ##sys#apply-limit, as it is used nowhere and doesn't make much
sense (its value is just a crude guess anyway).  This was the only use
of fudge 34.

Fudge 36 (toggle debug mode) doesn't make much sense either.  If we want
to set it it is more logical to just set it to the desired value.  The
one test that used it seemed to use it for no apparent reason (??)
---
 library.scm         |  1 -
 runtime.c           | 15 +++++++--------
 tests/embedded2.scm |  1 -
 3 files changed, 7 insertions(+), 10 deletions(-)

diff --git a/library.scm b/library.scm
index decde2a..7c6f828 100644
--- a/library.scm
+++ b/library.scm
@@ -287,7 +287,6 @@ EOF
 (define (##sys#block-ref x i) (##core#inline "C_i_block_ref" x i))
 (define ##sys#apply-values (##core#primitive "C_apply_values"))
 (define ##sys#copy-closure (##core#primitive "C_copy_closure"))
-(define ##sys#apply-argument-limit (##sys#fudge 34))
 
 (define (##sys#block-set! x i y)
   (when (or (not (##core#inline "C_blockp" x)) 
diff --git a/runtime.c b/runtime.c
index 36f3819..99be687 100644
--- a/runtime.c
+++ b/runtime.c
@@ -4854,13 +4854,13 @@ C_regparm C_word C_fcall C_fudge(C_word fudge_factor)
     panic(C_text("(##sys#fudge 7) [wordsize] is obsolete"));
 
   case C_fix(8):		/* words needed for double */
-    return C_fix(C_wordsperdouble(1));
+    panic(C_text("(##sys#fudge 8) [wordsperdouble] is obsolete"));
 
   case C_fix(9):		/* latency */
-    return C_fix(last_interrupt_latency);
+    panic(C_text("(##sys#fudge 9) [latency] is obsolete"));
 
   case C_fix(10):		/* clocks per sec */
-    return C_fix(CLOCKS_PER_SEC);
+    panic(C_text("(##sys#fudge 10) [clockspersec] is obsolete"));
 
   case C_fix(11):		/* not a unix system? */
     panic(C_text("(##sys#fudge 11) [UNIX system] is obsolete"));
@@ -4901,7 +4901,7 @@ C_regparm C_word C_fcall C_fudge(C_word fudge_factor)
     return C_mk_bool(private_repository != NULL);
 
   case C_fix(23):		/* seconds since process startup */
-    return C_fix(C_startup_time_seconds);
+    panic(C_text("(##sys#fudge 23) [startuptime] is obsolete"));
 
   case C_fix(24):		/* dynamic loading available? */
 #ifdef NO_DLOAD2
@@ -4927,7 +4927,7 @@ C_regparm C_word C_fcall C_fudge(C_word fudge_factor)
 #endif
 
   case C_fix(29):		/* size of ring-buffer used to hold trace entries */
-    return C_fix(C_trace_buffer_size);
+    panic(C_text("(##sys#fudge 29) [trace buffer size] is obsolete"));
 
   case C_fix(30):		/* unused */
     panic(C_text("(##sys#fudge 30) [?] is obsolete"));
@@ -4948,14 +4948,13 @@ C_regparm C_word C_fcall C_fudge(C_word fudge_factor)
     return C_fix(C_getpid());
 
   case C_fix(34):		/* effective maximum for procedure arguments */
-    return C_fix(stack_size / 2); /* An educated guess :) */
+    panic(C_text("(##sys#fudge 34) [apply-argument-limit] is obsolete"));
 
   case C_fix(35):		/* unused */
     panic(C_text("(##sys#fudge 35) [old apply-hack] is obsolete"));
     
   case C_fix(36):		/* toggle debug mode */
-    debug_mode = !debug_mode;
-    return C_mk_bool(debug_mode);
+    panic(C_text("(##sys#fudge 36) [toggle debug-mode] is obsolete"));
 
   case C_fix(37):		/* heap-dump enabled? */
     return C_mk_bool(dump_heap_on_exit);
diff --git a/tests/embedded2.scm b/tests/embedded2.scm
index 3e44cdc..b05428d 100644
--- a/tests/embedded2.scm
+++ b/tests/embedded2.scm
@@ -18,7 +18,6 @@ int main()
 <#
 
 
-(##sys#fudge 36)
 (gc)
 (print "starting...")
 
-- 
2.1.4