Как очистить внутренний список в Схеме?

Question

У меня есть следующий код, и я хотел бы добавить «очистить сообщение, которое удаляет все сохраненные номера из внутреннего списка. Как бы я это сделал?

     (define (make-stat)
      (let ((values (list)))
        (lambda (op . args)
          (cond ((eq? op 'add)            
                 (set! values (cons (car args) values)))
                ((eq? op 'mean)
                 (if (null? values) 
                     (error "can't take mean of empty data set")
                     (mean values)))
                ((eq? op 'variance)
                 (if (null? values)
                     (error "can't take variance of empty data set")
                     (variance values)))
                (else (error "unknown op" op))))))

Answer 1

ли

((eq? op 'clear)
 (set! values '()))

не работает? Наверное, я не понимаю, где твой камень преткновения.