steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

wolfram-alpha: display error if query unsuccessful.

db4
John Benediktsson 2012-03-07 17:53:59 -08:00
parent 683c9c2475
commit 442dae75ea
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/wolfram-alpha/wolfram-alpha.factor
View File

@ -16,7 +16,10 @@ SYMBOL: wolfram-api-id
: query ( query -- xml ) : query ( query -- xml )
url-encode wolfram-api-id get-global url-encode wolfram-api-id get-global
"http://api.wolframalpha.com/v2/query?input=%s&appid=%s" "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> PRIVATE>