Merge remote-tracking branch 'local-2.0/stable-2.0'

[bpt/guile.git] / test-suite / tests / procprop.test

diff --git a/test-suite/tests/procprop.test b/test-suite/tests/procprop.test
index ceb6e56..9407791 100644 (file)
--- a/test-suite/tests/procprop.test
+++ b/test-suite/tests/procprop.test
@@ -72,10 +72,4 @@
   (pass-if "opt, eval"
     (equal? (procedure-minimum-arity (eval '(lambda* (a b #:optional c) #t)
                                            (current-module)))
-            '(2 1 #f)))
-
-  (if (include-deprecated-features)
-      (pass-if-exception "set-procedure-properties! arity"
-        '(misc-error . "arity is a read-only property")
-        (set-procedure-properties! (lambda x x) '((arity . 3))))
-      #t))
+            '(2 1 #f))))