Changeset 13304 in project


Ignore:
Timestamp:
02/14/09 17:06:49 (11 years ago)
Author:
felix winkelmann
Message:

patch by Jim Ursetto for faster read-string from string-port

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/library.scm

    r13167 r13304  
    30703070         (let ([position (##sys#slot p 10)]
    30713071               [output (##sys#slot p 12)] )
    3072            (do ((i 0 (fx+ i 1)))
    3073                ((fx>= i len) (##sys#setislot p 10 position))
    3074              (##core#inline "C_setsubchar" output position (##core#inline "C_subchar" str i))
    3075              (set! position (fx+ position 1)) ) ) ) )
     3072           (##core#inline "C_substring_copy" str output 0 len position)
     3073           (##sys#setislot p 10 (fx+ position len)) ) ) )
    30763074     (lambda (p)                        ; close
    30773075       (##sys#setislot p 10 (##sys#slot p 11)) )
Note: See TracChangeset for help on using the changeset viewer.