From 2f158d1691a56f2509362311d21fed9347bee348 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 13 Apr 2013 16:19:03 -0700
Subject: [PATCH] xml-rpc: Delete dead code.

---
 basis/xml-rpc/example.factor | 27 ---------------------------
 1 file changed, 27 deletions(-)
 delete mode 100644 basis/xml-rpc/example.factor

diff --git a/basis/xml-rpc/example.factor b/basis/xml-rpc/example.factor
deleted file mode 100644
index e2be36c450..0000000000
--- a/basis/xml-rpc/example.factor
+++ /dev/null
@@ -1,27 +0,0 @@
-IN: rpc-example
-REQUIRES: contrib/http-client contrib/calendar ;
-USING: kernel hashtables xml-rpc xml calendar sequences
-    arrays math httpd io http-client namespaces ;
-
-: functions
-    H{ { "add" [ + ] }
-       { "subtract" [ - ] }
-       { "multiply" [ * ] }
-       { "divide" [ / ] } } ;
-
-: apply-function ( name args -- {number} )
-    [ functions hash ] dip first2 rot call 1array ;
-
-: problem>solution ( xml-doc -- xml-doc )
-    receive-rpc dup rpc-method-name swap rpc-method-params
-    apply-function <rpc-response> send-rpc ;
-
-: respond-rpc-arith ( -- )
-    "raw-response" get
-    string>xml problem>solution xml>string
-    put-http-response ;
-
-: test-rpc-arith
-    "add" { 1 2 } <rpc-method> send-rpc
-    "http://localhost:8080/responder/rpc/"
-    http-post ;