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

oops, committed too soon...

Browse Source 
svn: r11731
This commit is contained in:
Robby Findler 2008-09-13 22:38:21 +00:00
parent d69957455c
commit fb17d339ef
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/scheme/private/contract-guts.ss
View File

@ -146,7 +146,7 @@
[(and (procedure? x) (procedure-arity-includes? x 1)) [(and (procedure? x) (procedure-arity-includes? x 1))
(make-predicate-contract (or (object-name x) '???) x)] (make-predicate-contract (or (object-name x) '???) x)]
[(or (symbol? x) (boolean? x) (char? x)) (make-eq-contract x)] [(or (symbol? x) (boolean? x) (char? x)) (make-eq-contract x)]
[(or (byte-string? x) (string? x) (make-equal-contract x)] [(or (bytes? x) (string? x)) (make-equal-contract x)]
[(number? x) (make-=-contract x)] [(number? x) (make-=-contract x)]
[(or (regexp? x) (byte-regexp? x)) (make-regexp/c x)] [(or (regexp? x) (byte-regexp? x)) (make-regexp/c x)]
[else #f])) [else #f]))