basis: ERROR: changes.

[factor.git] / basis / tools / deploy / windows / ico / ico.factor

diff --git a/basis/tools/deploy/windows/ico/ico.factor b/basis/tools/deploy/windows/ico/ico.factor
index e656597a38f4d3c6392c2deab3eeebec4d40aec4..adf2bdd60041ae11852b9d8b9a03e0bca1de111a 100755 (executable)
--- a/basis/tools/deploy/windows/ico/ico.factor
+++ b/basis/tools/deploy/windows/ico/ico.factor
@@ -58,10 +58,10 @@ ERROR: unsupported-ico-format bytes format ;
 
 : check-ico-type ( bytes -- bytes )
     dup "PNG" head? [
-        "PNG" unsupported-ico-format
+        "PNG" throw-unsupported-ico-format
     ] when
     dup B{ 0 0 } head? [
-        "UNKNOWN" unsupported-ico-format
+        "UNKNOWN" throw-unsupported-ico-format
     ] unless ;
 
 PRIVATE>