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

use the new MAKE-SELECT-LIST api

This commit is contained in:
eknauel 2005-05-26 11:33:38 +00:00
parent 5e8bdf3229
commit e549cc27ff
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/process.scm
View File

@ -35,10 +35,10 @@
(define (make-process-selection-list num-cols num-lines processes) (define (make-process-selection-list num-cols num-lines processes)
(let ((layout (lambda (p) (layout-process num-cols p)))) (let ((layout (lambda (p) (layout-process num-cols p))))
(make-select-list (make-select-list
(zip (map
processes (lambda (p)
(map (lambda (p) #t) processes) (make-unmarked-element p #t (layout-process num-cols p)))
(map layout processes)) processes)
num-lines))) num-lines)))
(define (pps-receiver message) (define (pps-receiver message)