Remove weak sets

* libguile/weak-set.c:
* libguile/weak-set.h: Remove.
* libguile.h:
* libguile/Makefile.am: Adapt build and includes.
* libguile/scm.h: Remove weak set tc7.
* libguile/evalext.c:
* libguile/hash.c:
* libguile/ioext.c:
* libguile/ports.c:
* libguile/print.c: Remove weak-set includes and tc7 cases.
* libguile/init.c: No need to init weak sets.
* module/language/cps/compile-bytecode.scm:
* module/system/base/types.scm:
* module/system/base/types/internal.scm:
* module/system/vm/assembler.scm: Adapt to tc7 change.

module/language/cps/compile-bytecode.scm

@@ -505,7 +505,6 @@
         (#('vm-continuation? #f (a)) (unary emit-vm-continuation? a))
         (#('bytevector? #f (a)) (unary emit-bytevector? a))
         (#('thread? #f (a)) (unary emit-thread? a))
-        (#('weak-set? #f (a)) (unary emit-weak-set? a))
         (#('array? #f (a)) (unary emit-array? a))
         (#('bitvector? #f (a)) (unary emit-bitvector? a))
         (#('smob? #f (a)) (unary emit-smob? a))

module/system/base/types.scm

@@ -461,8 +461,6 @@ using BACKEND."
                         (cell->object source backend)))
           (((_ & #x7f = %tc7-vm-continuation))
            (inferior-object 'vm-continuation address))
-          (((_ & #x7f = %tc7-weak-set))
-           (inferior-object 'weak-set address))
           (((_ & #x7f = %tc7-array))
            (inferior-object 'array address))
           (((_ & #x7f = %tc7-bitvector))

module/system/base/types/internal.scm

@@ -51,7 +51,6 @@
             %tc7-vm-continuation
             %tc7-bytevector
             %tc7-thread
-            %tc7-weak-set
             %tc7-array
             %tc7-bitvector
             %tc7-port
@@ -147,7 +146,7 @@
   (vm-continuation  vm-continuation?       #b1111111       #b1000111)
   (bytevector       bytevector?            #b1111111       #b1001101)
   (thread           thread?                #b1111111       #b1001111)
-  (weak-set         weak-set?              #b1111111       #b1010101)
+  ;;(unused         unused                 #b1111111       #b1010101)
   ;;(unused         unused                 #b1111111       #b1010111)
   (array            array?                 #b1111111       #b1011101)
   (bitvector        bitvector?             #b1111111       #b1011111)

module/system/vm/assembler.scm

@@ -132,7 +132,6 @@
             emit-vm-continuation?
             emit-bytevector?
             emit-thread?
-            emit-weak-set?
             emit-array?
             emit-bitvector?
             emit-ephemeron?