image-compressor: compress-current-image now replaces current image

factor · May 16, 2024 · a4e89d0 · a4e89d0
1 parent 234cab9
commit a4e89d0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/extra/tools/image-compressor/image-compressor-docs.factor b/extra/tools/image-compressor/image-compressor-docs.factor
@@ -90,7 +90,7 @@ HELP: sync-header
 ;
 
 HELP: compress-current-image
-{ $description "Load, compresses and saves current Factor image with \".compressed\" appended to its filename" }
+{ $description "Loads, compresses and saves current Factor image" }
 ;
 
 ABOUT: "tools.image-compressor"
diff --git a/extra/tools/image-compressor/image-compressor.factor b/extra/tools/image-compressor/image-compressor.factor
@@ -55,5 +55,5 @@ SYMBOL: compression-level
   [ load-factor-image compress-image ] dip save-factor-image
 ;
 
-: compress-current-image ( -- ) image-path dup ".compressed" append compress-factor-image ;
+: compress-current-image ( -- ) image-path dup compress-factor-image ;
 MAIN: compress-current-image