Changeset 27395 in project for release/4/endian-port/trunk/endian-port.scm
- Timestamp:
- 09/09/12 00:44:59 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/endian-port/trunk/endian-port.scm
r27394 r27395 506 506 (let loop ((i 0) (bytes 0)) 507 507 (if (< i len) 508 (loop (+ i 1) (+ bytes (endian-port-write- int1 eport (u8vector-ref u8vect i))))508 (loop (+ i 1) (+ bytes (endian-port-write-uint1 eport (u8vector-ref u8vect i)))) 509 509 bytes)) 510 510 (let loop ((i (- len 1)) (bytes 0)) 511 511 (if (positive? i) 512 (loop (- i 1) (+ bytes (endian-port-write- int1 eport (u8vector-ref u8vect i))))512 (loop (- i 1) (+ bytes (endian-port-write-uint1 eport (u8vector-ref u8vect i)))) 513 513 bytes)))))) 514 514 … … 543 543 (if (bit-vector-ref (+ i 6) bv) #b00000010 0) 544 544 (if (bit-vector-ref (+ i 7) bv) #b00000001 0)))) 545 (loop (+ i 8) (+ bytes (endian-port-write- int1 eport byte))))545 (loop (+ i 8) (+ bytes (endian-port-write-uint1 eport byte)))) 546 546 bytes)) 547 547 (let loop ((i (- len 1)) (bytes 0)) … … 555 555 (if (bit-vector-ref (- i 6) bv) #b01000000 0) 556 556 (if (bit-vector-ref (- i 7) bv) #b10000000 0)))) 557 (loop (- i 8) (+ bytes (endian-port-write- int1 eport byte)))557 (loop (- i 8) (+ bytes (endian-port-write-uint1 eport byte))) 558 558 bytes))))))) 559 559 ) ;; end of module
Note: See TracChangeset
for help on using the changeset viewer.