;; Word cache.

;; OBSOLETE

(module cache mzscheme

  (require "ns.ss"
           "rep.ss")

  (provide ns-compiled-words)

  ;; Return a dictionary with run-time compiled words.
  (define (ns-compiled-words)

    (let down ((h (ns-ref '() (void))))

      (let ((l '()))
        (hash-table-for-each
         h
         (lambda (key v)
           (define (save c)
             (set! l (cons (cons key c) l)))
           (cond
            ((word? v)
             (let ((c (word-compiled v)))
               (when c (save c))))
            ((hash-table? v)
             (save (down v))))))
        l)))


  )