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

Add some missing `delay's in DeinProgramm signatures.

Browse Source 
Spotted by: Stephen Chang
This commit is contained in:
Mike Sperber 2012-06-17 09:20:59 +02:00
parent 5ff3087677
commit 35f141b7bc
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/deinprogramm/signature/signature-unit.rkt
View File

@ -92,10 +92,10 @@
(define (make-property-signature name access signature syntax) (define (make-property-signature name access signature syntax)
(let ((enforce (signature-enforcer signature))) (let ((enforce (signature-enforcer signature)))
(make-signature name (make-signature name
(lambda (self obj) (lambda (self obj)
(enforce self (access obj)) ; #### problematic: enforcement doesn't stick (enforce self (access obj)) ; #### problematic: enforcement doesn't stick
obj) obj)
syntax))) (delay syntax))))
(define (make-predicate-signature name predicate-promise syntax) (define (make-predicate-signature name predicate-promise syntax)
(make-signature (make-signature
@ -159,7 +159,7 @@
(go-on)))) (go-on))))
(else (else
(go-on))))) (go-on)))))
syntax (delay syntax)
#:arbitrary-promise #:arbitrary-promise
(delay (delay
(lift->arbitrary arbitrary-list arg-signature)) (lift->arbitrary arbitrary-list arg-signature))
@ -211,7 +211,7 @@
(check old-sigs)))) (check old-sigs))))
(else (else
(check '())))) (check '()))))
syntax (delay syntax)
#:arbitrary-promise #:arbitrary-promise
(delay (delay
(lift->arbitrary arbitrary-vector arg-signature)) (lift->arbitrary arbitrary-vector arg-signature))