Closes PR 10996
This commit is contained in:
Matthew Flatt 2010-06-26 08:15:11 -06:00
parent f7210b20cf
commit 0107404cee

View File

@ -32,7 +32,7 @@ racket
(define (make-adder x)
(if (= 1 x)
add1
(lambda (y) (+ x 1))))
(lambda (y) (+ x y))))
(provide/contract [make-adder (-> number? (-> number? number?))])
]