From 649e37dde8af6d2deb323d0bd7470c305d6b6cdb Mon Sep 17 00:00:00 2001
From: Carl Gay <carlgay@gmail.com>
Date: Fri, 29 Dec 2023 19:16:48 +0000
Subject: [PATCH] dfmc-environment-projects: simplify open-projects method

---
 sources/environment/dfmc/projects/common.dylan | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/sources/environment/dfmc/projects/common.dylan b/sources/environment/dfmc/projects/common.dylan
index 0a609f4c92..bb2a5a9dae 100644
--- a/sources/environment/dfmc/projects/common.dylan
+++ b/sources/environment/dfmc/projects/common.dylan
@@ -17,16 +17,10 @@ define sealed method initialize
     (project-object :: <native-project-object>, #key) => ()
   next-method();
   add-new!(*open-projects*, project-object);
-end method initialize;
+end method;
 
 //--- Is there a way around making this sideways?
 define sealed sideways method open-projects
     () => (projects :: <sequence>)
-  let projects :: <stretchy-object-vector> = make(<stretchy-object-vector>);
-  for (project :: <native-project-object> in *open-projects*)
-    if (project-opened-by-user?(project))
-      add!(projects, project)
-    end
-  end;
-  projects
-end method open-projects;
+  choose(project-opened-by-user?, *open-projects*)
+end method;