From 4b7a8dece04f5c3e57c55180455ddbd803052b3f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 7 Sep 2005 11:58:43 +0000 Subject: [PATCH] fix bad remq in test case svn: r785 --- collects/tests/mzscheme/port.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/port.ss b/collects/tests/mzscheme/port.ss index ad4d316624..7a66f1ec9b 100644 --- a/collects/tests/mzscheme/port.ss +++ b/collects/tests/mzscheme/port.ss @@ -154,7 +154,7 @@ (define (remq v l) (if (eq? (car l) v) (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, ;; and it also must service each port operation (read,