Changeset 15584 in project


Ignore:
Timestamp:
08/27/09 15:48:29 (10 years ago)
Author:
felix winkelmann
Message:

worked

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/rr/rr.scm

    r15581 r15584  
    1010            r/r-input-port
    1111            r/r-output-port
    12             r/r-input-port-type
    13             r/r-output-port-type
    1412            r/r-request-body-set!
    1513            r/r-response-body-set!
     
    3028    input-port                          ; PORT
    3129    output-port                         ; PORT
    32     input-port-type                     ; SYMBOL | #f
    33     output-port-type                    ; SYMBOL | #f
    3430    stages                              ; (STAGE ...)
    3531    current-stage)                      ; LIST
     
    5753            (loop (s r/r)))))))
    5854
     55  (define (read-request-chunk r/r)
     56    (let ((in (r/r-input-port r/r)))
     57      (if (eq? (##sys#slot in 7) 'socket)
     58          (let ((buf (vector-ref (##sys#port-data in) 3))
     59                (buflen (vector-ref (##sys#port-data in) 4)))
     60            (
     61
    5962)
Note: See TracChangeset for help on using the changeset viewer.