summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2006-07-20 09:42:06 +0000
committerLudovic Court`es2006-07-20 09:42:06 +0000
commit6d153732418f61e12f94c15686523f6898a8b99d (patch)
treeb98f11c4d5b54264e57b4645b87d441210334568 /src/guile
parenteabbe664c072a1633407017061f9e46bc1265249 (diff)
downloadskribilo-6d153732418f61e12f94c15686523f6898a8b99d.tar.gz
skribilo-6d153732418f61e12f94c15686523f6898a8b99d.tar.lz
skribilo-6d153732418f61e12f94c15686523f6898a8b99d.zip
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
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/lib.scm33
1 files changed, 2 insertions, 31 deletions
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)))