suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DMdA Contract bug fix: In yet another place, make sure that the

Browse Source 
enforcer calls `contract-violation' in tail position.

svn: r18095
This commit is contained in:
Mike Sperber 2010-02-16 07:51:02 +00:00
parent 30e8c7d039
commit d64254f49f
1 changed files with 37 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/deinprogramm/contract/contract.ss
View File

@ -228,7 +228,8 @@
((not (procedure? proc))
(contract-violation proc self #f #f))
((not (procedure-arity-includes? proc arg-count)) ; #### variable arity
(contract-violation proc self "falsche Anzahl von Parametern" #f)))
(contract-violation proc self "falsche Anzahl von Parametern" #f))
(else
(attach-name
(object-name proc)
(procedure-reduce-arity
@ -263,7 +264,7 @@
(old-violation-proc obj contract message blame-syntax))
(lambda ()
(apply-contract return-contract retval)))))))))))
(procedure-arity proc)))))
(procedure-arity proc)))))))
syntax
(delay
(apply lift->arbitrary arbitrary-procedure return-contract arg-contracts)))))