(define-library (picrin base)
(export attribute)
(define attribute-table (make-ephemeron-table))
(define (attribute obj)
(or (attribute-table obj)
(let ((dict (make-dictionary)))
(attribute-table obj dict)
dict))))