picrin/contrib/10.attribute/attr.scm

14 lines
294 B
Scheme
Raw Normal View History

2016-02-03 07:49:55 -05:00
(define-library (picrin base)
2016-02-10 07:57:20 -05:00
(define attribute-table (make-ephemeron))
2016-02-03 07:49:55 -05:00
(define (attribute obj)
(let ((r (attribute-table obj)))
(if r
(cdr r)
(let ((dict (make-dictionary)))
(attribute-table obj dict)
dict))))
(export attribute))