Changeset 15704 in project


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

fixnum ops where useful

Location:
release/4/srfi-4-comprehensions
Files:
2 edited

Legend:

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

    r14560 r15704  
    6969                       (set! len (,vlength vec)))
    7070                     ((i 0))
    71                      (< i len)
     71                     (fx< i len)
    7272                     (let ((var (,vref vec i))))
    7373                     #t
    74                      ((+ i 1)) ))
     74                     ((fx+ i 1)) ))
    7575               ((,vgen cc var (index i) arg1 arg2 arg (... ...))
    7676                (:parallel cc (,vgen cc var arg1 arg2 arg (... ...)) (:integers i)) )
     
    8181                           (vecs (,vfilter (list arg1 arg2 arg (... ...)))) ))
    8282                     ((k 0))
    83                      (if (< k len)
     83                     (if (fx< k len)
    8484                         #t
    8585                         (if (null? vecs)
     
    9292                     (let ((var (,vref vec k))))
    9393                     #t
    94                      ((+ k 1)) ))
     94                     ((fx+ k 1)) ))
    9595               ))
    9696
     
    120120                        (i 0) )
    121121                    (do-ec qualifier
    122                            (if (< i len)
     122                           (if (fx< i len)
    123123                               (begin (,vset! vec i expression)
    124                                       (set! i (+ i 1)) )
     124                                      (set! i (fx+ i 1)) )
    125125                               (error "vector is too short for the comprehension") ))
    126                     (if (= i len)
     126                    (if (eq? i len)
    127127                        vec
    128128                        (error "vector is too long for the comprehension") ))))))
  • release/4/srfi-4-comprehensions/srfi-4-comprehensions.setup

    r15433 r15704  
    77 'srfi-4-comprehensions
    88 '("srfi-4-comprehensions.so" "srfi-4-comprehensions.import.so")
    9  '((version 1.3)
     9 '((version 1.4)
    1010   (documentation "srfi-4-comprehensions.html")
    1111   ))
Note: See TracChangeset for help on using the changeset viewer.