fix eval.test for procnames eval option

* test-suite/tests/eval.test ("define set procedure-name"): Fix needless
  use of removed 'procnames eval option.

diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test
index 83820f7..4d37f7b 100644 (file)
--- a/test-suite/tests/eval.test
+++ b/test-suite/tests/eval.test
@@ -212,9 +212,6 @@
 ;;; define with procedure-name
 ;;;
 
-(define old-procnames-flag (memq 'procnames (debug-options)))
-(debug-enable 'procnames)
-
 ;; names are only set on top-level procedures (currently), so these can't be
 ;; hidden in a let
 ;;
@@ -235,10 +232,6 @@
   (expect-fail "procedure-with-setter"
     (eq? 'foo-pws (procedure-name bar-pws))))
 
-(if old-procnames-flag
-    (debug-enable 'procnames)
-    (debug-disable 'procnames))
-
 ;;;
 ;;; promises
 ;;;