From 6d153732418f61e12f94c15686523f6898a8b99d Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Thu, 20 Jul 2006 09:42:06 +0000
Subject: Removed unused code in `(skribilo lib)'.

* src/guile/skribilo/lib.scm (key-get): Removed.

git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-16
---
 src/guile/skribilo/lib.scm | 33 ++-------------------------------
 1 file changed, 2 insertions(+), 31 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/lib.scm b/src/guile/skribilo/lib.scm
index f08a36e..e5ed022 100644
--- a/src/guile/skribilo/lib.scm
+++ b/src/guile/skribilo/lib.scm
@@ -215,38 +215,9 @@
     (apply format (current-error-port) fmt obj)))
 
 
-
 ;;;
-;;; KEY-GET
-;;;
-;;; We need to redefine the standard key-get to be more permissive. In
-;;; STklos key-get accepts a list which is formed only of keywords. In
-;;; Skribe, parameter lists are of the form
-;;;      (:title "..." :option "...." body1 body2 body3)
-;;; So is we find an element which is not a keyword, we skip it (unless it
-;;; follows a keyword of course). Since the compiler of extended lambda
-;;; uses the function key-get, it will now accept Skribe markups
-(define* (key-get lst key #:optional (default #f) default?)
-  (define (not-found)
-    (if default?
-	default
-	(error 'key-get "value ~S not found in list ~S" key lst)))
-  (let Loop ((l lst))
-    (cond
-      ((null? l)
-       (not-found))
-      ((not (pair? l))
-       (error 'key-get "bad list ~S" lst))
-      ((keyword? (car l))
-       (if (null? (cdr l))
-	   (error 'key-get "bad keyword list ~S" lst)
-	   (if (eq? (car l) key)
-	       (cadr l)
-	       (Loop (cddr l)))))
-       (else
-	(Loop (cdr l))))))
-
-
+;;; %PROCEDURE-ARITY
+;;;
 (define (%procedure-arity proc)
   (car (procedure-property proc 'arity)))
 
-- 
cgit v1.2.3