;;-*-Scheme-*-
;; $Id: cesconv,v 1.3 2004/05/22 23:06:18 shirok Exp $
;;

;; Kept for backward compatibility.  Will be gone soon.

(define (main args)
  ;(warn "'cesconv' is obsoleted.  Use gauche-cesconv script instead.")
  (sys-system (string-join (cons "gauche-cesconv"
                                 (map (lambda (s) #`"',s'") (cdr args)))
                           " "))
  0)
