diff options
Diffstat (limited to 'test-suite/tests/procprop.test')
-rw-r--r-- | test-suite/tests/procprop.test | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/test-suite/tests/procprop.test b/test-suite/tests/procprop.test index ceb6e562b..eee54e61e 100644 --- a/test-suite/tests/procprop.test +++ b/test-suite/tests/procprop.test @@ -1,7 +1,7 @@ ;;;; procprop.test --- Procedure properties -*- mode: scheme; coding: utf-8; -*- ;;;; Ludovic Courtès <ludo@gnu.org> ;;;; -;;;; Copyright (C) 2009, 2010, 2011, 2012 Free Software Foundation, Inc. +;;;; Copyright (C) 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -49,7 +49,7 @@ (pass-if "apply" (equal? (procedure-minimum-arity apply) - '(1 0 #t))) + '(2 0 #t))) (pass-if "cons*" (equal? (procedure-minimum-arity cons*) @@ -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)))) |