mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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 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
;;;