Another comment
This commit is contained in:
parent
cf72a7983f
commit
f9b419109a
1 changed files with 1 additions and 0 deletions
|
|
@ -19,6 +19,7 @@
|
|||
(let ((component-type (rtd-name (record-rtd component))))
|
||||
(if (hash-table-exists? component-sets component-type)
|
||||
(let ((component-set (hash-table-ref component-sets component-type)))
|
||||
;; TODO: this could be nicer with set-adjoin! but I'm not sure if hash-table-ref is locative
|
||||
(hash-table-set! component-sets
|
||||
component-type
|
||||
(set-adjoin component-set
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue