14 lines
293 B
Scheme
14 lines
293 B
Scheme
|
(define-library (picrin base)
|
||
|
|
|
||
|
|
(define attribute-table (make-register))
|
||
|
|
|
||
|
|
(define (attribute obj)
|
||
|
|
(let ((r (attribute-table obj)))
|
||
|
|
(if r
|
||
|
|
(cdr r)
|
||
|
|
(let ((dict (make-dictionary)))
|
||
|
|
(attribute-table obj dict)
|
||
|
|
dict))))
|
||
|
|
|
||
|
|
(export attribute))
|