From 225a42b8328a464458c391ff6c730e2f7169b868 Mon Sep 17 00:00:00 2001 From: Mike Sperber Date: Mon, 23 Aug 2010 10:08:40 +0200 Subject: [PATCH] Pass back the procedure on certain signature violations. Closes PR 11117. --- collects/deinprogramm/signature/signature.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/deinprogramm/signature/signature.rkt b/collects/deinprogramm/signature/signature.rkt index bf8d7bc97f..650349241c 100644 --- a/collects/deinprogramm/signature/signature.rkt +++ b/collects/deinprogramm/signature/signature.rkt @@ -342,9 +342,11 @@ (values thing #f)))) (cond ((not (procedure? proc)) - (signature-violation proc self #f #f)) + (signature-violation proc self #f #f) + thing) ((not (procedure-arity-includes? proc arg-count)) ; #### variable arity - (signature-violation proc self "falsche Anzahl von Parametern" #f)) + (signature-violation proc self "falsche Anzahl von Parametern" #f) + thing) (else (attach-name (object-name proc)