scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

prepare menu returns a list of lists not of pairs 

part of darcs patch Thu Sep 22 13:44:13 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 16:33:11 +00:00
parent 45f1bb41b3
commit d3e61c5546
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/inspector.scm
View File

@ -5,7 +5,7 @@
(make-select-list (make-select-list
(map (lambda (e) (map (lambda (e)
(make-unmarked-text-element (make-unmarked-text-element
(cdr e) #t (layout-menu-entry num-cols e))) (cadr e) #t (layout-menu-entry num-cols e)))
menu) menu)
num-lines))) num-lines)))
@ -28,7 +28,7 @@
(define (layout-menu-entry num-cols entry) (define (layout-menu-entry num-cols entry)
(let ((head (format #f "[~a]" (or (car 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)))))) (- num-cols (string-length head))))))
(define *write-depth* 3) (define *write-depth* 3)