Update to uncommon-dylan@1.0

cgay · cgay · commit 7bb30a023e3d · 2025-11-14T09:31:21.000-05:00
diff --git a/dylan-package.json b/dylan-package.json
@@ -12,7 +12,7 @@
         "json@1.1",
         "logging@2.2",
         "regular-expressions@0.2",
-        "uncommon-dylan@0.2"
+        "uncommon-dylan@1.0"
     ],
     "dev-dependencies": [
         "sphinx-extensions",
diff --git a/sources/commands/list.dylan b/sources/commands/list.dylan
@@ -49,8 +49,8 @@ define function list-catalog
           end;
         end iterate;
         case
-          pos => copy-sequence(text, end: pos);
-          space => concat(copy-sequence(text, end: space), "...");
+          pos => copy-seq(text, end: pos);
+          space => concat(copy-seq(text, end: space), "...");
           otherwise => text;
         end
       end if
@@ -60,7 +60,7 @@ define function list-catalog
     end;
   let cat = pm/catalog();
   let packages = pm/load-all-catalog-packages(cat);
-  let rows = make(<stretchy-vector>);
+  let rows = make(<vector*>);
   for (package in sort(packages, test: package-<))
     let name = pm/package-name(package);
     let versions = pm/installed-versions(name, head?: #f);
diff --git a/sources/commands/test.dylan b/sources/commands/test.dylan
@@ -68,7 +68,7 @@ define method execute-subcommand
     end;
     let exes = #();
     let dlls = #();
-    let seen-libraries = make(<stretchy-vector>);
+    let seen-libraries = make(<vector*>);
     for (lids keyed-by release in lid-map)
       let lids = filter-to-command-line-libraries(lids);
       let _exes = choose(is-exe-library?, lids);
diff --git a/sources/library.dylan b/sources/library.dylan
@@ -43,6 +43,7 @@ define module deft-shared
   use standard-io,         export: all;
   use streams,             export: all;
   use strings,             export: all;
+  use table-extensions,    export: all;
   use threads,             export: all, import: { dynamic-bind };
   use uncommon-dylan,      export: all, exclude: { format-out, format-to-string };
   use uncommon-utils,      export: all;
diff --git a/sources/pacman/catalog.dylan b/sources/pacman/catalog.dylan
@@ -33,7 +33,7 @@ define constant $uncategorized = "Uncategorized";
 
 define constant $pacman-catalog-release :: <release>
   = begin
-      let releases = make(<stretchy-vector>);
+      let releases = make(<vector*>);
       let package = make(<package>,
                          name: "pacman-catalog",
                          releases: releases,
@@ -120,7 +120,7 @@ end function;
 
 define function load-all-catalog-packages
     (cat :: <catalog>) => (packages :: <seq>)
-  let packages = make(<stretchy-vector>);
+  let packages = make(<vector*>);
   local
     method load-one (dir, name, type)
       select (type)
@@ -253,8 +253,8 @@ define method package-locator
               2 => subdirectory-locator(root, "2");
               otherwise =>
                 subdirectory-locator(root,
-                                     copy-sequence(name, end: 2),
-                                     copy-sequence(name, start: 2, end: min(4, name.size)))
+                                     copy-seq(name, end: 2),
+                                     copy-seq(name, start: 2, end: min(4, name.size)))
             end;
   file-locator(dir, name)
 end method;
diff --git a/sources/pacman/install.dylan b/sources/pacman/install.dylan
@@ -85,7 +85,7 @@ define function ensure-current-link
   let exists? = fs/file-exists?(link-source, follow-links?: #f);
   let target = as(<string>, release-directory(release));
   if (ends-with?(target, "/") | ends-with?(target, "\\"))
-    target := copy-sequence(target, end: target.size - 1);
+    target := copy-seq(target, end: target.size - 1);
   end;
   let existing-target = exists? & fs/link-target(link-source);
   if (exists? & (target ~= as(<string>, existing-target)))
@@ -198,7 +198,7 @@ define function installed-versions
               exception (fs/<file-system-error>)
                 #[]
               end;
-  let versions = make(<stretchy-vector>);
+  let versions = make(<vector*>);
   for (file in files)
     if (instance?(file, <directory-locator>))
       let name = locator-name(file);
diff --git a/sources/pacman/packages.dylan b/sources/pacman/packages.dylan
@@ -273,7 +273,7 @@ define class <package> (<object>)
   // back-pointer to the package it's a part of. Currently it is possible for
   // the <head> version to be at the beginning of this sequence, but the plan
   // is to only allow <semantic-version>s.
-  constant slot package-releases :: <stretchy-vector> = make(<stretchy-vector>),
+  constant slot package-releases :: <vector*> = make(<vector*>),
     init-keyword: releases:;
 
   // Description of the package. Should be relatively concise; as yet unclear,
diff --git a/sources/workspaces/lid.dylan b/sources/workspaces/lid.dylan
@@ -20,7 +20,7 @@ define class <lid> (<object>)
 
   // Sequence of other <lid>s in which this <lid> is included via the "LID:"
   // keyword.
-  constant slot lid-included-in :: <seq> = make(<stretchy-vector>);
+  constant slot lid-included-in :: <seq> = make(<vector*>);
 end class;
 
 define method print-object
diff --git a/sources/workspaces/registry.dylan b/sources/workspaces/registry.dylan
@@ -50,7 +50,7 @@ define function update-registry
  => (total :: <int>, written :: <int>, no-platform-libs :: <seq>)
   let total = 0;
   let written = 0;
-  let no-platform = make(<stretchy-vector>);
+  let no-platform = make(<vector*>);
   for (lids keyed-by library in ws.lids-by-library)
     let candidates = choose(matches-current-platform?, lids);
     select (candidates.size)
diff --git a/sources/workspaces/workspaces.dylan b/sources/workspaces/workspaces.dylan
@@ -355,10 +355,10 @@ define function find-active-package-deps
     (ws :: <workspace>, cat :: pm/<catalog>, #key dev?)
  => (releases :: <seq>, actives :: <istring-table>)
   let actives = make(<istring-table>);
-  let deps = make(<stretchy-vector>);
+  let deps = make(<vector*>);
   // Dev deps could go into deps, above, but they're kept separate so that
   // pacman can give more specific error messages.
-  let dev-deps = make(<stretchy-vector>);
+  let dev-deps = make(<vector*>);
   for (lids keyed-by release in ws.lids-by-release)
     actives[pm/package-name(release)] := release;
     for (dep in pm/release-dependencies(release))
