;; metadata.lq

(define (metadata-keys x)
  (map first (metadata x)))

(define (with-metadata *defs x)
  (let ((defs (delayed-expr *defs)))
    (for-each (lambda (def)
                (let# (name val1) def
                  (metadata-set! x name (eval-in val1 *defs))))
              defs)
    x))