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

fix bad remq in test case

Browse Source 
svn: r785
This commit is contained in:
Matthew Flatt 2005-09-07 11:58:43 +00:00
parent 05a025eba1
commit 4b7a8dece0
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/tests/mzscheme/port.ss
View File

@ -154,7 +154,7 @@
(define (remq v l) (define (remq v l)
(if (eq? (car l) v) (if (eq? (car l) v)
(cdr l) (cdr l)
(cons (car l) (remq (cdr l) v)))) (cons (car l) (remq v (cdr l)))))
;; ---------------------------------------- ;; ----------------------------------------
;; The server has a list of outstanding commit requests, ;; The server has a list of outstanding commit requests,
;; and it also must service each port operation (read, ;; and it also must service each port operation (read,