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

minor px support

Browse Source 
svn: r4390
This commit is contained in:
Matthew Flatt 2006-09-19 21:39:37 +00:00
parent 8411780c8b
commit 357849bf0a
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mzlib/pconvert.ss
View File

@ -125,6 +125,7 @@
'atomic]
[(and (not (struct? expr)) ;; struct names are the wrong thing, here
(not (regexp? expr))
(not (byte-regexp? expr))
(not (procedure? expr))
(not (promise? expr))
(not (object? expr))
@ -360,8 +361,12 @@
(if (list? arity)
`(case-lambda . ,(make-lambda-helper arity))
`(lambda ,(make-lambda-helper arity) ...)))))]
[(regexp? expr) `(regexp ,(or (object-name expr)
'...))]
[(regexp? expr) `(,(if (pregexp? expr) 'pregexp 'regexp)
,(or (object-name expr)
'...))]
[(byte-regexp? expr) `(,(if (byte-pregexp? expr) 'byte-pregexp 'byte-regexp)
,(or (object-name expr)
'...))]
[(module-path-index? expr)
(let-values ([(left right) (module-path-index-split expr)])
`(module-path-index-join ,(recur left) ,(recur right)))]

2
collects/mzlib/string.ss
View File

@ -137,7 +137,7 @@
(map
(lambda (c)
(cond
[(memq c '(#\$ #\| #\\ #\[ #\] #\. #\* #\? #\+ #\( #\) #\^))
[(memq c '(#\$ #\| #\\ #\[ #\] #\. #\* #\? #\+ #\( #\) #\^ #\{ #\}))
(list #\\ c)]
[(and (not case-sens?)
(not (char=? (char-upcase c) (char-downcase c))))