no set! overwrites on persistent symbol tables

michaelballantyne · Aug 22, 2024 · 7a8ae1a · 7a8ae1a
1 parent 197b8b3
commit 7a8ae1a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/private/ee-lib/main.rkt b/private/ee-lib/main.rkt
@@ -508,6 +508,9 @@
   (check who mutable-symbol-table?
          t)
 
+  (when (and allow-overwrite? (persistent-free-id-table? (mutable-symbol-table-id-table t)))
+    (error 'symbol-table-set! "cannot allow overwrite on persistent symbol table"))
+
   (unless allow-overwrite?
     (check-symbol-table-new-id who t id))