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

Fix quoting.

Browse Source 
svn: r10132
This commit is contained in:
Sam Tobin-Hochstadt 2008-06-04 20:16:17 +00:00
parent 9c4ab9014f
commit bf8dd8264e
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/typed-scheme/private/type-contract.ss
View File

@ -123,6 +123,6 @@
(if (equal? ty Any-Syntax) (if (equal? ty Any-Syntax)
#`syntax? #`syntax?
#`(syntax/c #,(t->c t)))] #`(syntax/c #,(t->c t)))]
[(Value: v) #`(flat-named-contract #,(format "~a" v) (lambda (x) (equal? x #,v)))] [(Value: v) #`(flat-named-contract #,(format "~a" v) (lambda (x) (equal? x '#,v)))]
[else [else
(exit (fail))])))) (exit (fail))]))))