Commits

seanmcl committed 59e3a37

removed Shell.rm

Comments (0)

Files changed (1)

elisp-for-ocaml-programmers.el

 ;; (Shell.readlink "/../.")
 ;; (Shell.readlink nil)
 
-(defun Shell.rm (path)
-  "Remove a file"
-  (if (not path) nil
-    (let ((res (String.strip-newlines
-                (shell-command-to-string (format "rm -f %s" path)))))
-      (if (equal res "") nil res))))
-;; (Shell.rm "/tmp")
-;; (Shell.rm "/tmp/omake-emacs-log")
-
 (defun Shell.dirname (path)
   (if (not path) nil
     (let ((res (String.strip-newlines
   (let ((file (read-file-name "File: ")))
     (byte-compile-file file)
     (message "removing compiled file")
-    (Shell.rm (concat file "c"))))
+    (remove-file (concat file "c"))))
 
 
 ;; Hg