From db90b44b0da6295cd7da556db27d7f392a7ee276 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 3 May 2009 22:08:57 +0000 Subject: [PATCH] make const accept arbitrary keywords svn: r14700 --- collects/scheme/function.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scheme/function.ss b/collects/scheme/function.ss index 56a55e7a38..d60c1a670d 100644 --- a/collects/scheme/function.ss +++ b/collects/scheme/function.ss @@ -4,7 +4,7 @@ (define (const c) (define (const . _) c) - const) + (make-keyword-procedure const const)) (define (negate f) (unless (procedure? f) (raise-type-error 'negate "procedure" f))