fix dist-spec checker to export proprty utils
svn: r17398
This commit is contained in:
parent
b18ba4a4e5
commit
a7d4b7467d
|
@ -35,6 +35,10 @@
|
|||
|
||||
(define *properties* (make-weak-hasheq))
|
||||
|
||||
(provide get-props
|
||||
prop-get
|
||||
prop-set!)
|
||||
|
||||
(define (get-props obj)
|
||||
(hash-ref *properties* obj (lambda ()
|
||||
(let ([props (mlist 'props)])
|
||||
|
|
Loading…
Reference in New Issue
Block a user