From d3e61c554611b7ccb312717510470d95b5bd966f Mon Sep 17 00:00:00 2001 From: eknauel Date: Tue, 27 Sep 2005 16:33:11 +0000 Subject: [PATCH] prepare menu returns a list of lists not of pairs part of darcs patch Thu Sep 22 13:44:13 EEST 2005 Martin Gasbichler --- scheme/inspector.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/inspector.scm b/scheme/inspector.scm index 5f8f70a..a3c4460 100644 --- a/scheme/inspector.scm +++ b/scheme/inspector.scm @@ -5,7 +5,7 @@ (make-select-list (map (lambda (e) (make-unmarked-text-element - (cdr e) #t (layout-menu-entry num-cols e))) + (cadr e) #t (layout-menu-entry num-cols e))) menu) num-lines))) @@ -28,7 +28,7 @@ (define (layout-menu-entry num-cols entry) (let ((head (format #f "[~a]" (or (car entry) "")))) - (string-append head (val-to-string (cdr entry) + (string-append head (val-to-string (cadr entry) (- num-cols (string-length head)))))) (define *write-depth* 3)