Changeset 9499 in project


Ignore:
Timestamp:
03/12/08 01:05:08 (12 years ago)
Author:
Kon Lovett
Message:

Save.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/testbase/trunk/testbase-proc.scm

    r9492 r9499  
    298298
    299299(define (runnable-test-procedure-descriptors tplst)
    300   (let* (
    301       [tpdlst (test-procedure-descriptors/filter tplst)]
    302       [mbrlst?
    303         (lambda (tst-tpd)
    304           (let ([tp (test-procedure-descriptor-procedure tst-tpd)])
    305             (any
    306               (lambda (tpd)
    307                 (eq? tp (test-procedure-descriptor-procedure tpd)))
    308               tpdlst) ) )])
    309     (filter
    310       (lambda (tpd)
    311         (and (mbrlst? tpd)
    312              (cond [(test-procedure-descriptor-actual? tpd)  #t]
    313                    [(test-procedure-descriptor-formal? tpd)  #f]
    314                    [(test-procedure-actual-descriptor? tpd)  (mbrlst? tpd)])))
    315       (test-procedure-descriptor-immutable-list)) ) )
     300  (let* ([tpdlst (test-procedure-descriptors/filter tplst)]
     301         [mbrlst?
     302           (lambda (tst-tpd)
     303             (let ([tp (test-procedure-descriptor-procedure tst-tpd)])
     304               (any (lambda (tpd)
     305                      (eq? tp (test-procedure-descriptor-procedure tpd)))
     306                    tpdlst) ) ) ] )
     307    (filter (lambda (tpd)
     308              (and (mbrlst? tpd)
     309                   (cond [(test-procedure-descriptor-actual? tpd)  #t]
     310                         [(test-procedure-descriptor-formal? tpd)  #f]
     311                         [(test-procedure-actual-descriptor? tpd)  (mbrlst? tpd) ] ) ) )
     312            (test-procedure-descriptor-immutable-list)) ) )
    316313
    317314;; The default echo procedure.
     
    328325  ; Handle positional & keyed options
    329326  (if (eq? 'echo-procedure key)
    330     ;then special - positional
    331     (begin
    332       (check-procedure val loc)
    333       (set-car! spec val))
    334     ;else just update the options association list
    335     (set-cdr! spec (alist-update! key val (cdr spec) eq?)))
     327      ; then special - positional
     328      (begin
     329        (check-procedure val loc)
     330        (set-car! spec val) )
     331      ; else just update the options association list
     332      (set-cdr! spec (alist-update! key val (cdr spec) eq?)))
    336333  ; Updated in place but return anyway for functional use
    337334  spec )
     
    355352(define (add-echo-filter state port plist loc)
    356353  (tb$state-echo-filters-set! state
    357     (alist-update!
    358      port (update-echo-spec! (make-default-echo-spec) plist loc)
    359      (tb$state-echo-filters state)
    360      eq?)) )
     354   (alist-update!
     355    port (update-echo-spec! (make-default-echo-spec) plist loc)
     356    (tb$state-echo-filters state)
     357    eq?)) )
    361358
    362359;;; Parameter Validation
Note: See TracChangeset for help on using the changeset viewer.