Changeset 26448 in project


Ignore:
Timestamp:
04/10/12 10:58:21 (9 years ago)
Author:
Ivan Raikov
Message:

endian-port: white space removal

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/endian-port/trunk/endian-port.scm

    r26431 r26448  
    185185  (let-optionals rest ([byte-order (endian-port-byte-order eport)])
    186186                (let* ( [buf (make-blob 1)]
    187                                 [ret (file-read (endian-port-fileno eport) 1 buf)])
     187                        [ret (file-read (endian-port-fileno eport) 1 buf)])
    188188                        (and (eq? (cadr ret) 1) (endian-blob->uint1 (byte-blob->endian-blob
    189189                                        (blob->byte-blob (car ret)) byte-order) ) ))))
     
    200200  (let-optionals rest ([byte-order (endian-port-byte-order eport)])
    201201                (let* ( [buf (make-blob 2)]
    202                                 [ret (file-read (endian-port-fileno eport) 2 buf)])
     202                        [ret (file-read (endian-port-fileno eport) 2 buf)])
    203203                        (and (eq? (cadr ret) 2) (endian-blob->uint2 (byte-blob->endian-blob
    204204                                        (blob->byte-blob (car ret)) byte-order) ) ))))
     
    215215  (let-optionals rest ([byte-order (endian-port-byte-order eport)])
    216216                (let* ( [buf (make-blob 4)]
    217                                 [ret (file-read (endian-port-fileno eport) 4 buf)])
     217                        [ret (file-read (endian-port-fileno eport) 4 buf)])
    218218                        (and (eq? (cadr ret) 4) (endian-blob->uint4 (byte-blob->endian-blob
    219219                                        (blob->byte-blob (car ret)) byte-order) ) ))))
     
    229229  (let-optionals rest ([byte-order (endian-port-byte-order eport)])
    230230                (let* ( [buf (make-blob 1)]
    231                                 [ret (file-read (endian-port-fileno eport) 1 buf)])
     231                        [ret (file-read (endian-port-fileno eport) 1 buf)])
    232232                        (and (eq? (cadr ret) 1) (endian-blob->sint1 (byte-blob->endian-blob
    233233                                        (blob->byte-blob (car ret)) byte-order) ) ))))
     
    244244  (let-optionals rest ([byte-order (endian-port-byte-order eport)])
    245245                (let* ( [buf (make-blob 2)]
    246                                 [ret (file-read (endian-port-fileno eport) 2 buf)])
     246                        [ret (file-read (endian-port-fileno eport) 2 buf)])
    247247                        (and (eq? (cadr ret) 2) (endian-blob->sint2 (byte-blob->endian-blob
    248248                                        (blob->byte-blob (car ret)) byte-order) ) ))))
     
    259259  (let-optionals rest ([byte-order (endian-port-byte-order eport)])
    260260                (let* ( [buf (make-blob 4)]
    261                                 [ret (file-read (endian-port-fileno eport) 4 buf)])
     261                        [ret (file-read (endian-port-fileno eport) 4 buf)])
    262262                        (and (eq? (cadr ret) 4) (endian-blob->sint4 (byte-blob->endian-blob
    263263                                        (blob->byte-blob (car ret)) byte-order) ) ))))
     
    274274  (let-optionals rest ([byte-order (endian-port-byte-order eport)])
    275275                (let* ( [buf (make-blob 4)]
    276                                 [ret (file-read (endian-port-fileno eport) 4 buf)])
     276                        [ret (file-read (endian-port-fileno eport) 4 buf)])
    277277                        (and (= (cadr ret) 4)
    278278                             (endian-blob->ieee_float32
Note: See TracChangeset for help on using the changeset viewer.