There is also the #lang sicp for Racket that needs no modification from the code in the book, to my knowledge.
But if needed, the user can write:
(define (1+ x) (+ x 1)) (define (1- x) (- x 1))