From 210afa2395f04a5be7105d07456c557a89f2ee8f Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 7 Apr 2018 08:42:38 +0100 Subject: [PATCH] Correct typo --- imperative/dataspace.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/imperative/dataspace.rkt b/imperative/dataspace.rkt index d19b127..f359cd8 100644 --- a/imperative/dataspace.rkt +++ b/imperative/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)