suzanne.soy/gui
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 a13e87c4a2
commit b1c07874e0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/exit.ss
View File

@ -20,7 +20,7 @@
(set! can?-callbacks
(let loop ([cb-list can?-callbacks])
(cond
[(null? cb-list) ()]
[(null? cb-list) '()]
[(eq? cb (car cb-list)) (cdr cb-list)]
[else (cons (car cb-list) (loop (cdr cb-list)))]))))))
@ -31,7 +31,7 @@
(set! on-callbacks
(let loop ([cb-list on-callbacks])
(cond
[(null? cb-list) ()]
[(null? cb-list) '()]
[(eq? cb (car cb-list)) (cdr cb-list)]
[else (cons (car cb-list) (loop (cdr cb-list)))]))))))