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

make const accept arbitrary keywords

Browse Source 
svn: r14700
This commit is contained in:
Eli Barzilay 2009-05-03 22:08:57 +00:00
parent 23e2b997a0
commit db90b44b0d
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/scheme/function.ss
View File

@ -4,7 +4,7 @@
(define (const c) (define (const c)
(define (const . _) c) (define (const . _) c)
const) (make-keyword-procedure const const))
(define (negate f) (define (negate f)
(unless (procedure? f) (raise-type-error 'negate "procedure" f)) (unless (procedure? f) (raise-type-error 'negate "procedure" f))