mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

fix eval.test for procnames eval option

Browse source 
* test-suite/tests/eval.test ("define set procedure-name"): Fix needless
  use of removed 'procnames eval option.
This commit is contained in:
Andy Wingo 2010-09-25 12:02:33 +02:00
parent 3932bdb3af
commit a12c6c3b25
1 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/tests/eval.test
View file

@ -212,9 +212,6 @@
;;; define with procedure-name ;;; 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 ;; names are only set on top-level procedures (currently), so these can't be
;; hidden in a let ;; hidden in a let
;; ;;
@ -235,10 +232,6 @@
(expect-fail "procedure-with-setter" (expect-fail "procedure-with-setter"
(eq? 'foo-pws (procedure-name bar-pws)))) (eq? 'foo-pws (procedure-name bar-pws))))
(if old-procnames-flag
(debug-enable 'procnames)
(debug-disable 'procnames))
;;; ;;;
;;; promises ;;; promises
;;; ;;;