same thing but with fixed typo added by relay on Sat Nov 4 18:46:54 2017
(define (aux:make-point-list points #!optional (internal-list '()))
(if (not (null? points))
(aux:make-point-list (cdr points)
(cons (cdr (car points))
(cons (car (car points))
internal-list)))
(reverse internal-list)))