Pass back the procedure on certain signature violations.

Closes PR 11117.
2010-08-23 10:08:40 +02:00 · 2010-08-23 10:08:40 +02:00 · 225a42b832
commit 225a42b832
parent 8d2db5f4bf
1 changed files with 4 additions and 2 deletions
--- 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)