Lines Matching +refs:struct +refs:linklet +refs:directory

4          "../host/linklet.rkt"
5          "../compile/linklet.rkt"
12          rebuild-linklet-directory
13          compiled->linklet-directory-or-bundle)
37   (define ld (compiled->linklet-directory-or-bundle c))
38   (define b (if (linklet-bundle? ld)
40                 (hash-ref (linklet-directory->hash ld) #f)))
41   (hash-ref (linklet-bundle->hash b) 'name))
64     (struct-copy compiled-in-memory c
67                  [linklet-directory (rebuild-linklet-directory
69                                       (let ([ld (compiled->linklet-directory-or-bundle c)])
70                                         (if (linklet-bundle? ld)
72                                             (hash-ref (linklet-directory->hash ld) #f)))
77    [(linklet-directory? c)
78     (hash->linklet-directory
79      (for/hasheq ([(key val) (in-hash (linklet-directory->hash c))])
85     ;; linklet bundle
89   (hash->linklet-bundle (hash-set (linklet-bundle->hash lb) 'name name)))
91 (define (rebuild-linklet-directory main submods #:bundle-ok? [bundle-ok? #f])
96      (hash->linklet-directory
105                      (hash-set ht name (compiled->linklet-directory-or-bundle submod))]))