|
|
|
@ -128,7 +128,6 @@ |
|
|
|
(and existing-entry (= category (path existing-entry > category)))) |
|
|
|
(dynarray-free full-path) |
|
|
|
(return)) |
|
|
|
(fprintf stderr "Existing entry is %p\n" existing-entry) |
|
|
|
(var new-entry directory-entry-userdata |
|
|
|
(array full-path category)) |
|
|
|
(strdict-set-struct g-userdata-dict new-entry) |
|
|
|
|
