DEBUG: Remove "static EqHashTable nongenerativeRtds"

This won't work at *BSD, MacOS, Win32

boot/baselib/records.scm

@@ -29,6 +29,12 @@
 
 ;; Originally from Ypsilon Scheme
 
+(define nongenerativeRtds (make-eq-hashtable))
+(define (nongenerative-rtd-set! obj sim)
+  (hashtable-set! nongenerativeRtds obj sim))
+(define (lookup-nongenerative-rtd obj)
+  (hashtable-ref nongenerativeRtds obj #f))
+
 (define (tuple id . fields)
   (make-simple-struct id (length fields) fields))
 
@@ -392,3 +398,4 @@
     (or (record-type? obj)
         (assertion-violation 'record-type-rcd (wrong-type-argument-message "record-type" obj)))
     (tuple-ref obj 3)))
+

boot/free-vars.scm

@@ -668,8 +668,8 @@
   simple-struct-ref
   simple-struct-set!
   simple-struct-name
-  lookup-nongenerative-rtd
-  nongenerative-rtd-set!
+  qookup-nongenerative-rtd
+  qongenerative-rtd-set!
   ;; for faster psyntax.
   same-marks*?
   same-marks?

extlibs/gc-7.1/configure.ac

@@ -50,6 +50,8 @@ AC_DEFINE(NO_CLOCK)
 
 ## DONT_ADD_BYTE_AT_END is required to distinguish annotated pair and normal pair. See isAnnotatedPair.
 AC_DEFINE(DONT_ADD_BYTE_AT_END)
+#AC_DEFINE(GC_ASSERTIONS)
+#AC_DEFINE(KEEP_BACK_PTRS)
 ## Mosh end
 
 GC_CFLAGS=${gc_cflags}

src/UtilityProcedures.cpp

@@ -1001,20 +1001,25 @@ Object scheme::currentDynamicWindersEx(VM* theVM, int argc, const Object* argv)
 }
 
 // rtds are shared between multiple VMs.
-static EqHashTable nongenerativeRtds;
+//static EqHashTable nongenerativeRtds;
 
-Object scheme::nongenerativeRtdSetDEx(VM* theVM, int argc, const Object* argv)
+Object scheme::qongenerativeRtdSetDEx(VM* theVM, int argc, const Object* argv)
 {
+#if 0
     DeclareProcedureName("nongenerative-rtd-set!");
     checkArgumentLength(2);
     argumentCheckSimpleStruct(1, rtd);
     nongenerativeRtds.set(argv[0], rtd);
+#endif
     return Object::Undef;
 }
 
-Object scheme::lookupNongenerativeRtdEx(VM* theVM, int argc, const Object* argv)
+Object scheme::qookupNongenerativeRtdEx(VM* theVM, int argc, const Object* argv)
 {
+#if 0
     DeclareProcedureName("lookup-nongenerative-rtd");
     checkArgumentLength(1);
     return nongenerativeRtds.ref(argv[0], Object::False);
+#endif
+    return Object::False;
 }

src/UtilityProcedures.h

@@ -101,8 +101,8 @@ namespace scheme {
     Object internalsetIntersectEx(VM* theVM, int argc, const Object* argv);
     Object hostOsEx(VM* theVM, int argc, const Object* argv);
     Object currentDynamicWindersEx(VM* theVM, int argc, const Object* argv);
-    Object nongenerativeRtdSetDEx(VM* theVM, int argc, const Object* argv);
-    Object lookupNongenerativeRtdEx(VM* theVM, int argc, const Object* argv);
+    Object qongenerativeRtdSetDEx(VM* theVM, int argc, const Object* argv);
+    Object qookupNongenerativeRtdEx(VM* theVM, int argc, const Object* argv);
 
 
     int mod(int x, int y);