From e549cc27ff770e151074702663c312608e115154 Mon Sep 17 00:00:00 2001 From: eknauel Date: Thu, 26 May 2005 11:33:38 +0000 Subject: [PATCH] use the new MAKE-SELECT-LIST api --- scheme/process.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/scheme/process.scm b/scheme/process.scm index 91c0f5c..693ea99 100644 --- a/scheme/process.scm +++ b/scheme/process.scm @@ -35,10 +35,10 @@ (define (make-process-selection-list num-cols num-lines processes) (let ((layout (lambda (p) (layout-process num-cols p)))) (make-select-list - (zip - processes - (map (lambda (p) #t) processes) - (map layout processes)) + (map + (lambda (p) + (make-unmarked-element p #t (layout-process num-cols p))) + processes) num-lines))) (define (pps-receiver message)