suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix dist-spec checker to export proprty utils

Browse Source 
svn: r17398
This commit is contained in:
Matthew Flatt 2009-12-25 13:18:47 +00:00
parent b18ba4a4e5
commit a7d4b7467d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/meta/checker.ss
View File

@ -35,6 +35,10 @@
(define *properties* (make-weak-hasheq)) (define *properties* (make-weak-hasheq))
(provide get-props
prop-get
prop-set!)
(define (get-props obj) (define (get-props obj)
(hash-ref *properties* obj (lambda () (hash-ref *properties* obj (lambda ()
(let ([props (mlist 'props)]) (let ([props (mlist 'props)])