136 |
(define (1+ n) (+ n 1)) |
(define (1+ n) (+ n 1)) |
137 |
(define (1- n) (+ n -1)) |
(define (1- n) (+ n -1)) |
138 |
(define (and=> value procedure) (and value (procedure value))) |
(define (and=> value procedure) (and value (procedure value))) |
139 |
|
(define call/cc call-with-current-continuation) |
140 |
|
|
141 |
;;; apply-to-args is functionally redundant with apply and, worse, |
;;; apply-to-args is functionally redundant with apply and, worse, |
142 |
;;; is less general than apply since it only takes two arguments. |
;;; is less general than apply since it only takes two arguments. |