wolfram-alpha: display error if query unsuccessful.

2012-03-07 17:53:59 -08:00 · 2012-03-07 17:53:59 -08:00 · 442dae75ea
parent 683c9c2475
commit 442dae75ea
1 changed files with 4 additions and 1 deletions
--- a/extra/wolfram-alpha/wolfram-alpha.factor
+++ b/extra/wolfram-alpha/wolfram-alpha.factor
@ -16,7 +16,10 @@ SYMBOL: wolfram-api-id
 : query ( query -- xml )
    url-encode wolfram-api-id get-global
    "http://api.wolframalpha.com/v2/query?input=%s&appid=%s"
-    sprintf http-get nip string>xml ;
+    sprintf http-get nip string>xml
+    dup "error" tag-named [
+        "msg" tag-named children>string throw
+    ] when* ;

 PRIVATE>