Changeset 10031 in project


Ignore:
Timestamp:
03/22/08 02:26:45 (11 years ago)
Author:
kon
Message:

Using canonical directory structure.

Location:
release/3/srfi-42
Files:
2 added
5 moved

Legend:

Unmodified
Added
Removed
  • release/3/srfi-42/trunk/srfi-42-support.scm

    r10029 r10031  
    1 ;;;; support.scm
     1;;;; srfi-42-support.scm
     2
     3(eval-when (compile)
     4  (declare
     5    (usual-integrations)
     6    (inline)
     7    (no-bound-checks)
     8    (no-procedure-checks)
     9    (export
     10      ec-:vector-filter
     11      dispatch-union
     12      make-initial-:-dispatch
     13      :-dispatch
     14      :-dispatch-ref
     15      :-dispatch-set!) ) )
     16
     17(register-feature! 'srfi-42)
    218
    319(include "srfi-42.scm")
     20
     21; ==========================================================================
     22; ==========================================================================
    423
    524(define (ec-:vector-filter vecs)
    625  (if (null? vecs)
    726      '()
    8       (if (zero? (vector-length (car vecs)))
     27      (if (fx= 0 (vector-length (car vecs)))
    928          (ec-:vector-filter (cdr vecs))
    1029          (cons (car vecs) (ec-:vector-filter (cdr vecs))) )))
  • release/3/srfi-42/trunk/srfi-42.scm

    r10029 r10031  
    386386            (set! len (string-length str)))
    387387          ((i 0))
    388           (< i len)
     388          (fx< i len)
    389389          (let ((var (string-ref str i))))
    390390          #t
    391           ((+ i 1)) ))
     391          ((fx+ i 1)) ))
    392392    ((:string cc var (index i) arg1 arg2 arg ...)
    393393     (:string cc var (index i) (string-append arg1 arg2 arg ...)) )
     
    409409            (set! len (vector-length vec)))
    410410          ((i 0))
    411           (< i len)
     411          (fx< i len)
    412412          (let ((var (vector-ref vec i))))
    413413          #t
    414           ((+ i 1)) ))
     414          ((fx+ i 1)) ))
    415415
    416416    ((:vector cc var (index i) arg1 arg2 arg ...)
     
    422422                (vecs (ec-:vector-filter (list arg1 arg2 arg ...))) ))
    423423          ((k 0))
    424           (if (< k len)
     424          (if (fx< k len)
    425425              #t
    426426              (if (null? vecs)
     
    433433          (let ((var (vector-ref vec k))))
    434434          #t
    435           ((+ k 1)) ))))
     435          ((fx+ k 1)) ))))
    436436
    437437; Alternative: A simpler implementation for :vector uses vector->list
     
    583583          (let ((imax (char->integer arg2))))
    584584          ((i (char->integer arg1)))
    585           (<= i imax)
     585          (fx<= i imax)
    586586          (let ((var (integer->char i))))
    587587          #t
    588           ((+ i 1)) ))))
     588          ((fx+ i 1)) ))))
    589589
    590590; Warning: There is no R5RS-way to implement the :char-range generator
     
    791791             (i 0) )
    792792         (do-ec qualifier
    793                 (if (< i len)
     793                (if (fx< i len)
    794794                    (begin (vector-set! vec i expression)
    795                            (set! i (+ i 1)) )
     795                           (set! i (fx+ i 1)) )
    796796                    (error "vector is too short for the comprehension") ))
    797          (if (##core#check (= i len))
     797         (if (##core#check (fx= i len))
    798798             vec
    799799             (error "vector is too long for the comprehension") ))))))
  • release/3/srfi-42/trunk/srfi-42.setup

    r10029 r10031  
    11;;; srfi-42.setup -*- Scheme -*-
    22
    3 (run (csc -s -R syntax-case -O2 -d0 srfi-42-support.scm))
     3(compile -s -R syntax-case -O2 -d0 srfi-42-support.scm)
    44
    55(install-extension
     
    77 '("srfi-42.scm" "srfi-42-support.so" "srfi-42.html")
    88 '((syntax)
    9    (version 1.4)
     9   (version 1.5)
    1010   (documentation "srfi-42.html")
    1111   (require-at-runtime srfi-42-support)))
Note: See TracChangeset for help on using the changeset viewer.