2016-02-03 07:49:55 -05:00
|
|
|
(define-library (picrin base)
|
2017-04-03 12:25:46 -04:00
|
|
|
(export attribute)
|
2016-02-03 07:49:55 -05:00
|
|
|
|
2017-04-29 11:23:38 -04:00
|
|
|
(define attribute-table (make-attribute))
|
2016-02-03 07:49:55 -05:00
|
|
|
|
|
|
|
|
(define (attribute obj)
|
2017-04-03 12:25:46 -04:00
|
|
|
(or (attribute-table obj)
|
|
|
|
|
(let ((dict (make-dictionary)))
|
|
|
|
|
(attribute-table obj dict)
|
|
|
|
|
dict))))
|
