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

fix minor bug in contract

Browse Source 
svn: r5916
This commit is contained in:
Eli Barzilay 2007-04-10 18:24:24 +00:00
parent 7ef0ce8b0f
commit 822cf3fd56
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/syntax/moddep.ss
View File

@ -375,9 +375,9 @@
(for-each (mk-loop " [for-template]") ft-imports)))))
(define (module-path-v-string? v)
(and (regexp-match #rx"^[-a-zA-Z0-9./]+$" v)
(not (regexp-match #rx"^/" v))
(not (regexp-match #rx"/$" v))))
(and (regexp-match? #rx"^[-a-zA-Z0-9./]+$" v)
(not (regexp-match? #rx"^/" v))
(not (regexp-match? #rx"/$" v))))
(define (module-path-v? v)
(cond [(path? v) #t]
@ -389,7 +389,7 @@
(null? (cddr v)))]
[(lib) (and (pair? (cdr v))
(list? (cdr v))
(map module-path-v-string? (cdr v)))]
(andmap module-path-v-string? (cdr v)))]
[(planet) #t]
[else #f])]
[else #f]))