change ERROR: words from throw-foo back to foo.

[factor.git] / extra / images / gif / gif.factor

diff --git a/extra/images/gif/gif.factor b/extra/images/gif/gif.factor
index 5702a91d7a5148c362e4af0330b55c7b51d838af..13e0cc1ac6b432358839755e40481418bb9bddad 100644 (file)
--- a/extra/images/gif/gif.factor
+++ b/extra/images/gif/gif.factor
@@ -126,7 +126,7 @@ CONSTANT: BLOCK-TERMINATOR 0x00
 
 ERROR: unimplemented message ;
 : read-GIF87a ( loading-gif -- loading-gif )
-    "GIF87a" throw-unimplemented ;
+    "GIF87a" unimplemented ;
 
 : read-logical-screen-descriptor ( loading-gif -- loading-gif )
     2 read le> >>width
@@ -182,8 +182,8 @@ ERROR: unimplemented message ;
         { APPLICATION-EXTENSION [
             read-application-extension over application-extensions>> push
         ] }
-        { f [ throw-gif-unexpected-eof ] }
-        [ throw-unknown-extension ]
+        { f [ gif-unexpected-eof ] }
+        [ unknown-extension ]
     } case ;
 
 ERROR: unhandled-data byte ;
@@ -197,7 +197,7 @@ ERROR: unhandled-data byte ;
         ] }
         { IMAGE-DESCRIPTOR [ read-table-based-image ] }
         { TRAILER [ f >>loading? ] }
-        [ throw-unhandled-data ]
+        [ unhandled-data ]
     } case ;
 
 : read-GIF89a ( loading-gif -- loading-gif )
@@ -211,7 +211,7 @@ ERROR: unhandled-data byte ;
         read-gif-header dup magic>> {
             { "GIF87a" [ read-GIF87a ] }
             { "GIF89a" [ read-GIF89a ] }
-            [ throw-unsupported-gif-format ]
+            [ unsupported-gif-format ]
         } case
     ] with-input-stream ;
 
@@ -246,7 +246,7 @@ ERROR: unhandled-data byte ;
 ERROR: loading-gif-error gif-image ;
 
 : ensure-loaded ( gif-image -- gif-image )
-    dup loading?>> [ throw-loading-gif-error ] when ;
+    dup loading?>> [ loading-gif-error ] when ;
 
 M: gif-image stream>image* ( path gif-image -- image )
     drop load-gif ensure-loaded gif>image ;