Changeset 7776 in project


Ignore:
Timestamp:
01/18/08 11:21:10 (12 years ago)
Author:
felix winkelmann
Message:

more read-line bugfixes; updated copyright date; added port test

Location:
chicken/trunk
Files:
1 added
4 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/banner.scm

    r5968 r7776  
    66)
    77
    8 (define-constant +copyright+ "(c)2000-2007 Felix L. Winkelmann")
     8(define-constant +copyright+ "(c)2000-2008 Felix L. Winkelmann")
  • chicken/trunk/extras.scm

    r7775 r7776  
    410410        (define (doread port)
    411411          (let loop ((lns '())
    412                      (n (or max 1000000)) )
     412                     (n (or max 1000000000)) ) ; this is silly
    413413            (if (eq? n 0)
    414414                (reverse lns)
  • chicken/trunk/library.scm

    r7338 r7776  
    16711671          #f                            ; read-string!
    16721672          (lambda (p limit)             ; read-line
    1673             (let ((buffer-len (if limit limit 256))
    1674                   (buffer (make-string buffer-len)))
     1673            (let* ((buffer-len (if limit limit 256))
     1674                   (buffer (make-string buffer-len)))
    16751675              (let loop ([len buffer-len]
    16761676                         [buffer buffer]
     
    30113011         n))
    30123012     (lambda (p limit)                  ; read-line
    3013        (let ((pos (##sys#slot p 10))
    3014              (size (##sys#slot p 11))
    3015              (buf (##sys#slot p 12))
    3016              (end (if limit (fx+ pos limit) size)))
     3013       (let* ((pos (##sys#slot p 10))
     3014              (size (##sys#slot p 11))
     3015              (buf (##sys#slot p 12))
     3016              (end (if limit (fx+ pos limit) size)))
    30173017         (if (fx>= pos size)
    30183018             #!eof
  • chicken/trunk/tests/runtests.sh

    r7172 r7776  
    1414echo "======================================== library tests ..."
    1515../csi -w -s library-tests.scm
     16
     17echo "======================================== port tests ..."
     18../csi -w -s port-tests.scm
    1619
    1720echo "======================================== fixnum tests ..."
Note: See TracChangeset for help on using the changeset viewer.