[sawfish] Small cleanup in infinite desktop. An unused function 'infinite-desktop.remove' is removed.

[Christopher Bratusek <chrisb src gnome org>]

commit 643802f164f7edef9f13ebe4d914a84aaa452109
Author: Teika kazura <teika lavabit com>
Date:   Fri Dec 18 15:07:22 2009 +0900

    Small cleanup in infinite desktop. An unused function 'infinite-desktop.remove' is removed.
    It must be a leftover from when this script is in wiki.

 lisp/sawfish/wm/ext/infinite-desktop.jl |   10 ----------
 1 files changed, 0 insertions(+), 10 deletions(-)
---
diff --git a/lisp/sawfish/wm/ext/infinite-desktop.jl b/lisp/sawfish/wm/ext/infinite-desktop.jl
index 8651e1d..194f2e1 100644
--- a/lisp/sawfish/wm/ext/infinite-desktop.jl
+++ b/lisp/sawfish/wm/ext/infinite-desktop.jl
@@ -34,16 +34,6 @@
 
   (define-structure-alias infinite-desktop sawfish.wm.ext.infinite-desktop)
 
-  ;;
-  ;; Remove our hooks if they're already installed -
-  ;; allows us to be imported multiple times safely.
-  ;;
-
-  (define (infinite-desktop.remove a l)
-    (cond ((not l) nil)
-          ((eq a (car l)) (infinite-desktop.remove a (cdr l)))
-          (t (cons (car l) (infinite-desktop.remove a (cdr l))))))
-
   (defgroup infinite-desktop "Infinite Desktop"
     :group workspace)