Changeset 15706 in project


Ignore:
Timestamp:
09/01/09 16:32:43 (10 years ago)
Author:
felix
Message:

repaired use of incorrect ellipsis marker

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-4-comprehensions/srfi-4-comprehensions.scm

    r15704 r15706  
    5858             (list->v  (string->symbol (string-append "list->" pre-sym "vector")))
    5959             (v-ec     (string->symbol (string-append pre-sym "vector-ec")))
    60              (v-of-length-ec (string->symbol (string-append pre-sym "vector-of-length-ec"))))
     60             (v-of-length-ec (string->symbol (string-append pre-sym "vector-of-length-ec")))
     61             (___ (r '___)))
    6162        `(begin
    6263           (define-syntax ,vgen
    63              (syntax-rules (index)
     64             (syntax-rules ,___ (index)
    6465               ((,vgen cc var arg)
    6566                (,vgen cc var (index i) arg) )
     
    7374                     #t
    7475                     ((fx+ i 1)) ))
    75                ((,vgen cc var (index i) arg1 arg2 arg (... ...))
    76                 (:parallel cc (,vgen cc var arg1 arg2 arg (... ...)) (:integers i)) )
    77                ((,vgen cc var arg1 arg2 arg (... ...))
     76               ((,vgen cc var (index i) arg1 arg2 arg ,___)
     77                (:parallel cc (,vgen cc var arg1 arg2 arg ,___) (:integers i)) )
     78               ((,vgen cc var arg1 arg2 arg ,___)
    7879                (:do cc
    7980                     (let ((vec #f)
    8081                           (len 0)
    81                            (vecs (,vfilter (list arg1 arg2 arg (... ...)))) ))
     82                           (vecs (,vfilter (list arg1 arg2 arg ,___))) ))
    8283                     ((k 0))
    8384                     (if (fx< k len)
     
    103104
    104105           (define-syntax ,v-ec
    105              (syntax-rules ()
    106                ((v-ec etc1 etc (... ...))
    107                 (,list->v (list-ec etc1 etc (... ...))) )))
     106             (syntax-rules ,___ ()
     107               ((v-ec etc1 etc ,___)
     108                (,list->v (list-ec etc1 etc ,___)) )))
    108109
    109110           (define-syntax ,v-of-length-ec
    110              (syntax-rules (nested)
    111                ((v-of-length-ec k (nested q1 (... ...)) q etc1 etc (... ...))
    112                 (v-of-length-ec k (nested q1 (... ...) q) etc1 etc (... ...)) )
    113                ((v-of-length-ec k q1 q2             etc1 etc (... ...))
    114                 (v-of-length-ec k (nested q1 q2)    etc1 etc (... ...)) )
     111             (syntax-rules ,___ (nested)
     112               ((v-of-length-ec k (nested q1 ,___) q etc1 etc ,___)
     113                (v-of-length-ec k (nested q1 ,___ q) etc1 etc ,___) )
     114               ((v-of-length-ec k q1 q2             etc1 etc ,___)
     115                (v-of-length-ec k (nested q1 q2)    etc1 etc ,___) )
    115116               ((v-of-length-ec k expression)
    116117                (v-of-length-ec k (nested) expression) )
Note: See TracChangeset for help on using the changeset viewer.