Ignore:
Timestamp:
03/12/08 16:14:23 (14 years ago)
Author:
Kon Lovett
Message:

Rmvd dep procs. Updated doc.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/misc-extn/trunk/misc-extn-control.scm

    r6200 r9512  
    1010                (lambda (typ)
    1111                  `(,(string->symbol (string-append (symbol->string typ) "?")) ,?var))])
    12             (let loop ([forms ?forms] [lst '()])
     12            (let loop ([forms ?forms]
     13                       [lst '()])
    1314              (if (null? forms)
    1415                  (reverse lst)
     
    1617                    (if (pair? tcase)
    1718                        (let ([typ (car tcase)])
    18                           (loop
    19                             (cdr forms)
    20                             (cons
    21                               (cons
    22                                 (cond [(eq? 'else typ)
    23                                         'else]
    24                                       [(symbol? typ)
    25                                         (make-type-pred typ)]
    26                                       [(pair? typ)
    27                                         `(or ,@(map make-type-pred typ))]
    28                                       [else
    29                                         (syntax-error loc "invalid case" tcase)])
    30                                 (cdr tcase))
    31                               lst)))
     19                          (loop (cdr forms)
     20                                (cons (cons (cond [(eq? 'else typ)
     21                                                    'else]
     22                                                  [(symbol? typ)
     23                                                    (make-type-pred typ)]
     24                                                  [(pair? typ)
     25                                                    `(or ,@(map make-type-pred typ))]
     26                                                  [else
     27                                                    (syntax-error loc "invalid case" tcase)])
     28                                            (cdr tcase))
     29                                      lst)))
    3230                        (syntax-error loc "invalid case" tcase)))))))) )
    3331
Note: See TracChangeset for help on using the changeset viewer.