From c122add1360731c1866e1b2ff48f4de808c0aded Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 7 Apr 2018 08:42:38 +0100 Subject: [PATCH] Correct typo --- syndicate/dataspace.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/syndicate/dataspace.rkt b/syndicate/dataspace.rkt index d19b127..f359cd8 100644 --- a/syndicate/dataspace.rkt +++ b/syndicate/dataspace.rkt @@ -259,7 +259,7 @@ (when (pair? parent-fid) (define pf (lookup-facet ds parent-fid)) - (when pf (set-facet-children! (set-remove (facet-children pf) fid)))) + (when pf (set-facet-children! pf (set-remove (facet-children pf) fid)))) (hash-remove! (dataspace-facets ds) fid)