#! /usr/bin/gosh
;; -*- coding: utf-8 -*-
;; ----------------------------------------------------------------------
;;	tyrant_delete.scm
;;
;;					Jun/24/2011
;;
;; ----------------------------------------------------------------------
(use memcache)
;; ----------------------------------------------------------------------
(define (main args)
(define id_in (car (cdr args)))

(define conn (memcache-connect "localhost" 1978))
(print "*** 開始 ***")
(print id_in)
(print (delete conn id_in))
;;
(print "*** 終了 ***")
0
)
;; ----------------------------------------------------------------------