Scheme 如何清除方案中的内部列表？

我有以下代码，希望添加一条“清除消息，从内部列表中删除所有存储的号码”。我该怎么做

     (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))))))

做

不工作？我想我不明白你的绊脚石在哪里

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