Fix quoting.

svn: r10132
2008-06-04 20:16:17 +00:00 · 2008-06-04 20:16:17 +00:00 · bf8dd8264e
commit bf8dd8264e
parent 9c4ab9014f
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/private/type-contract.ss
+++ b/collects/typed-scheme/private/type-contract.ss
@ -123,6 +123,6 @@
         (if (equal? ty Any-Syntax)
             #`syntax?
             #`(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          
         (exit (fail))]))))