1 files changed, 0 insertions, 18 deletions
diff --git a/ds9/library/catsimbad.tcl b/ds9/library/catsimbad.tcl
index 064b2b3..1c8e6d2 100644
--- a/ds9/library/catsimbad.tcl
+++ b/ds9/library/catsimbad.tcl
@@ -14,9 +14,6 @@ proc CATSIMBAD {varname} {
 	puts stderr "CATSIMBAD $varname"
     }
 
-    # parser
-    set var(proc,parser) CATSIMBADParse
-
     # query
     set qq {}
 
@@ -84,21 +81,6 @@ proc CATSIMBAD {varname} {
     CATLoad $varname $url $query
 }
 
-proc CATSIMBADParse {t token} {
-    upvar #0 $t T
-    global $t
-    global debug
-
-    # we can't trust simbad to turn off any error messages
-    variable $token
-    upvar 0 $token state
-
-    set id [string first {<?xml} $state(body)]
-    set ${token}(body) [string range $state(body) $id end]
-
-    VOTParse $t $token
-}
-
 proc CATSIMBADAck {varname} {
     upvar #0 $varname var
     global $varname