dfmc-environment-projects: simplify open-projects method

cgay · Jan 7, 2024 · 649e37d · 649e37d
1 parent a43ef2d
commit 649e37d
Showing 1 changed file with 3 additions and 9 deletions.
diff --git 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;