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

disallow empty application; rename regexp-match/fail-without-reading to regexp-try-match

Browse Source 
svn: r8152

original commit: 1d8b21f53b4bdd14d7986aeda2ba76c351370a60
This commit is contained in:
Matthew Flatt 2007-12-29 13:51:32 +00:00
parent 96bcbb0713
commit c69692878f
3 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/string.ss
View File

@ -8,7 +8,7 @@
regexp-match-peek-positions*
regexp-split
regexp-match-exact?
regexp-match/fail-without-reading)
regexp-try-match)
"kw.ss")
(provide string-lowercase!
@ -17,7 +17,8 @@
read-from-string
read-from-string-all
expr->string
(all-from scheme/base)
(all-from-except scheme/base regexp-try-match)
(rename regexp-try-match regexp-match/fail-without-reading)
glob->regexp)

10
collects/tests/mzscheme/pconvert.ss
View File

@ -11,7 +11,7 @@
(quasi-read-style-printing #f)
(define (xl) 1)
(define (xc) (class object% () (sequence (super-init))))
(define (xc) (class object% (sequence (super-init))))
(let ()
(define-struct pctest (value constructor-sexp
@ -183,8 +183,8 @@
xl-ID-BETTER-NOT-BE-DEFINED)
'(lambda () ...))
(make-same-test xc 'xc)
(make-same-test (letrec ([xc (class object% ())]) xc) '(class ...))
(make-same-test (letrec ([xc-ID-BETTER-NOT-BE-DEFINED (class object% ())])
(make-same-test (letrec ([xc (class object%)]) xc) '(class ...))
(make-same-test (letrec ([xc-ID-BETTER-NOT-BE-DEFINED (class object%)])
xc-ID-BETTER-NOT-BE-DEFINED)
'(class ...))
(make-same-test (lambda (x) x) '(lambda (a1) ...))
@ -212,7 +212,7 @@
(hash-table-put! ht 'x 1)
ht)
'(hash-table ('x 1)))
(make-pctest (list 'a (box (list ())) (cons 1 '()))
(make-pctest (list 'a (box (list '())) (cons 1 '()))
'(list (quote a) (box (list empty)) (list 1))
'(list (quote a) (box (list empty)) (list 1))
'(list (quote a) (box (list empty)) (list 1))
@ -346,7 +346,7 @@
(test-not-shared 'x ''x)
(test-shared (lambda (x) x) '(lambda (a1) ...))
(test-shared (delay 1) '(delay ...))
(test-shared (class object% ()) '(class ...))
(test-shared (class object%) '(class ...))
(test-shared (new (class object% (super-new))) '(instantiate (class ...) ...))
(test-shared "abc" "abc")

2
collects/tests/mzscheme/unit.ss
View File

@ -417,7 +417,7 @@
(test #t unit? (unit
(import x)
(export)
(class object% ()
(class object%
(field
[x 10])
(set! x 5))))