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

[factor.git] / extra / bit / ly / ly.factor

diff --git a/extra/bit/ly/ly.factor b/extra/bit/ly/ly.factor
index 036ec55d40d1b8af39264d010093926226e885a0..f69eff34b011e2f140b54c89c3461a5468ab1d34 100644 (file)
--- a/extra/bit/ly/ly.factor
+++ b/extra/bit/ly/ly.factor
@@ -19,7 +19,7 @@ ERROR: bad-response json status ;
 : check-status ( json -- json )
     dup "status_code" of 200 = [
         dup "status_txt" of
-        throw-bad-response
+        bad-response
     ] unless ;
 
 : json-data ( url -- json )