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))) |
|
(define (make-hash-table k) (make-vector k '())) |
|
139 |
|
|
140 |
;;; apply-to-args is functionally redundant with apply and, worse, |
;;; apply-to-args is functionally redundant with apply and, worse, |
141 |
;;; is less general than apply since it only takes two arguments. |
;;; is less general than apply since it only takes two arguments. |