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

..

Browse Source 
original commit: 30152aaa530fa11c44fdd46e95b862bcb6170142
This commit is contained in:
Robby Findler 2002-08-02 20:32:34 +00:00
parent 2fd1b8f3d5
commit 17be0a7dec
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/contracts.ss
View File

@ -706,7 +706,7 @@
;; with a question mark, turn it into a mzscheme
;; style type name
(define (predicate->expected-msg pred)
(let ([name (predicate->type-name)])
(let ([name (predicate->type-name pred)])
(if name
(format "expected type <~a>, " name)
"")))