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

Make `procedure-to-blame' applicable.

Browse Source 
This unbreaks some applications of procedures with signature
violations.
This commit is contained in:
Mike Sperber 2010-08-25 15:59:50 +02:00
parent cda3d259ee
commit 00061e6bb9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/deinprogramm/signature/signature.rkt
View File

@ -373,7 +373,8 @@
#:arbitrary-promise #:arbitrary-promise
(delay (apply arbitrary-one-of =? cases)))) (delay (apply arbitrary-one-of =? cases))))
(define-struct procedure-to-blame (proc syntax)) (define-struct procedure-to-blame (proc syntax)
#:property prop:procedure 0)
(define signature-key (gensym 'signature-key)) (define signature-key (gensym 'signature-key))