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

Zap obsolete comment.

Browse Source 
svn: r18094
This commit is contained in:
Mike Sperber 2010-02-16 07:39:22 +00:00
parent 52f2ec2e30
commit 30e8c7d039
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -268,7 +268,6 @@
(delay (delay
(apply lift->arbitrary arbitrary-procedure return-contract arg-contracts))))) (apply lift->arbitrary arbitrary-procedure return-contract arg-contracts)))))
;; Matthew has promised a better way of doing this in the future.
(define (attach-name name thing) (define (attach-name name thing)
(if (and (procedure? thing) (if (and (procedure? thing)
(symbol? name)) (symbol? name))