From 36175660bd183f0263b9b804456a0f8a8cb9583c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 18 Jun 2001 18:09:43 +0000 Subject: [PATCH] . original commit: 64c7b69febb083d4413b56ddeca11aa74a1dcbc1 --- collects/mzlib/list.ss | 2 -- 1 file changed, 2 deletions(-) diff --git a/collects/mzlib/list.ss b/collects/mzlib/list.ss index 8a24e65..15c67af 100644 --- a/collects/mzlib/list.ss +++ b/collects/mzlib/list.ss @@ -218,7 +218,6 @@ [(not (pair? l)) (raise (make-exn:application:mismatch (format "~a: second argument must be a (proper) list; given ~e" name list) - name (syntax-source-module (quote-syntax here)) (current-continuation-marks) list))] [(f (car l)) (if whole-list? l (car l))] @@ -247,7 +246,6 @@ frest))] [else (raise (make-exn:application:mismatch (format "filter: second argument must be a (proper) list; given ~e" list) - 'filter (syntax-source-module (quote-syntax here)) (current-continuation-marks) list))])))))