picrin/contrib/10.attribute/attr.scm

(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))))
attribute as a macro 2016-02-03 07:49:55 -05:00			`(define-library (picrin base)`
no consing when getting value from ephemeron table 2017-04-03 12:25:46 -04:00			`(export attribute)`
attribute as a macro 2016-02-03 07:49:55 -05:00
make-ephemeron -> make-ephemeron-table 2017-03-31 02:59:22 -04:00			`(define attribute-table (make-ephemeron-table))`
attribute as a macro 2016-02-03 07:49:55 -05:00
			`(define (attribute obj)`
no consing when getting value from ephemeron table 2017-04-03 12:25:46 -04:00			`(or (attribute-table obj)`
			`(let ((dict (make-dictionary)))`
			`(attribute-table obj dict)`
			`dict))))`