ÿØÿàJFIFÿþ ÿÛC       ÿÛC ÿÀÿÄÿÄ"#QrÿÄÿÄ&1!A"2qQaáÿÚ ?Øy,æ/3JæÝ¹È߲؋5êXw²±ÉyˆR”¾I0ó2—PI¾IÌÚiMö¯–þrìN&"KgX:Šíµ•nTJnLK„…@!‰-ý ùúmë;ºgµŒ&ó±hw’¯Õ@”Ü— 9ñ-ë.²1<yà‚¹ïQÐU„ہ?.’¦èûbß±©Ö«Âw*VŒ) `$‰bØÔŸ’ëXÖ-ËTÜíGÚ3ð«g Ÿ§¯—Jx„–’U/ÂÅv_s(Hÿ@TñJÑãõçn­‚!ÈgfbÓc­:él[ðQe 9ÀPLbÃãCµm[5¿ç'ªjglå‡Ûí_§Úõl-;"PkÞÞÁQâ¼_Ñ^¢SŸx?"¸¦ùY騐ÒOÈ q’`~~ÚtËU¹CڒêV  I1Áß_ÿÙGOOF----LE-8-2.0]{4hU] gguile  gdefine-module*   gweb gresponse  gfilenameS fweb/response.scm gimportsS grnrs g bytevectors     gice-9 g binary-ports   grdelim   gmatch   gsrfi gsrfi-9   ghttp   !  "gexportsS #g response? $gresponse-version %g response-code &gresponse-reason-phrase 'gresponse-headers (g response-port )g read-response *gbuild-response +gadapt-response-version ,gwrite-response -gresponse-must-not-include-body? .gresponse-body-port /gread-response-body 0gwrite-response-body 1gresponse-cache-control 2gresponse-connection 3g response-date 4gresponse-pragma 5gresponse-trailer 6gresponse-transfer-encoding 7gresponse-upgrade 8g response-via 9gresponse-warning :gresponse-allow ;gresponse-content-encoding gresponse-content-location ?gresponse-content-md5 @gresponse-content-range Agresponse-content-type Bgtext-content-type? Cgresponse-expires Dgresponse-last-modified Egresponse-accept-ranges Fg response-age Gg response-etag Hgresponse-location Igresponse-proxy-authenticate Jgresponse-retry-after Kgresponse-server Lg response-vary Mgresponse-www-authenticate N#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLM+ Ogset-current-module PO QO Rg  Sg%make-response-procedure Tgmake-syntax-transformer UT VT Wg make-response Xgmacro Yg $sc-dispatch ZY [Y \g_ ]gany ^\]]]]] _g syntax-object `glambda agm-a15fd730aa5-8 bgtop cab dgribcage egt-a15fd730aa5-3 fgt-a15fd730aa5-4 ggt-a15fd730aa5-5 hgt-a15fd730aa5-6 igt-a15fd730aa5-7 jefghi kccccc lfl-a15fd730aa5-d mfl-a15fd730aa5-e nfl-a15fd730aa5-f ofl-a15fd730aa5-10 pfl-a15fd730aa5-11 qlmnop rdjkq sd tgx ut vc wfl-a15fd730aa5-a xw yduvx zgshift {g proc-name |gargs }{| ~b ~~ fl-1e8ba8b5a-2ba fl-1e8ba8b5a-2bb  d} gkey gvalue gname gformals gbody  ~~~~~ fl-1e8ba8b5a-2ad fl-1e8ba8b5a-2ae fl-1e8ba8b5a-2af fl-1e8ba8b5a-2b0 fl-1e8ba8b5a-2b1  d gmake-procedure-name  ~ fl-1e8ba8b5a-29d  d ~ fl-1e8ba8b5a-29c  du crsyzssss  ghygiene  _` gversion ~rsy  _ gcode _ g reason-phrase _ gheaders _ gport _  g make-struct gm-a15fd730aa5-1 b gt-1e8ba8b5a-38d gt-1e8ba8b5a-38c gt-1e8ba8b5a-38b  gm-1e8ba8b5a-38e b  fl-1e8ba8b5a-392 fl-1e8ba8b5a-393 fl-1e8ba8b5a-394  d g ctor-args  fl-1e8ba8b5a-37a  d gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  d gform g type-name gconstructor-spec g field-names  ~~~~ fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  d g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  ~~~~~~~~ fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  d fl-1e8ba8b5a-334  du rsyzsssss _ _R _    geach-any \ gsyntax-violation   fWrong number of arguments g identifier?   ~sy _S   f-source expression failed to match any pattern grecord-type-vtable   g pwpwpwpwpw gdefault-record-printer    gset-struct-vtable-name!     gvtable-offset-user        g%response?-procedure \] gm-a15fd730aa5-1d b gt-a15fd730aa5-1c   fl-a15fd730aa5-22  d fl-a15fd730aa5-1f  du szssss  _` gobj gt-1e8ba8b5a-47e gt-1e8ba8b5a-478 gt-1e8ba8b5a-479  gt-1e8ba8b5a-47a !gt-1e8ba8b5a-47d "gt-1e8ba8b5a-47c #gt-1e8ba8b5a-47b $ !"# %gm-1e8ba8b5a-47f &%b '&&&&&&& (fl-1e8ba8b5a-483 )fl-1e8ba8b5a-484 *fl-1e8ba8b5a-485 +fl-1e8ba8b5a-486 ,fl-1e8ba8b5a-487 -fl-1e8ba8b5a-488 .fl-1e8ba8b5a-489 /()*+,-. 0d$'/ 1g copier-id 21 3fl-1e8ba8b5a-476 43 5d24 6g ctor-name 76 8fl-1e8ba8b5a-46e 98 :d79 ; d;= ?glayout @? Afl-1e8ba8b5a-46a BA Cd@B Dg immutable? ED Ffl-1e8ba8b5a-468 GF HdEG Ig field-count JI Kfl-1e8ba8b5a-466 LK MdJL Ng getter-ids ON Pfl-1e8ba8b5a-463 QP RdOQ Sg field-ids TS Ufl-1e8ba8b5a-460 VU WdTV Xgpredicate-name Yg field-spec ZDXY [~~~~~~ \fl-1e8ba8b5a-453 ]fl-1e8ba8b5a-454 ^fl-1e8ba8b5a-455 _fl-1e8ba8b5a-456 `fl-1e8ba8b5a-457 afl-1e8ba8b5a-458 b\]^_`a cdZ[b dszs0ssss5s:s>sCsHsMsRsWc e_d fe ggand h_gd igstruct? j_id kje lgeq? m_ld ng struct-vtable o_nd poe q~s r_Rq smpr thks uft v~s w_ v xgthrow-bad-struct yx zx {g%response-version-procedure |gfree-id }g %%on-error ~gm-a15fd730aa5-29 ~b  fl-a15fd730aa5-2b  du szssss  _} | ] g%%type gt-1e8ba8b5a-3a5 gt-1e8ba8b5a-3a6 gt-1e8ba8b5a-3a7 gt-1e8ba8b5a-3a8 gt-1e8ba8b5a-3a9 gt-1e8ba8b5a-3aa gt-1e8ba8b5a-3ab  gm-1e8ba8b5a-3ac b  fl-1e8ba8b5a-3b0 fl-1e8ba8b5a-3b1 fl-1e8ba8b5a-3b2 fl-1e8ba8b5a-3b3 fl-1e8ba8b5a-3b4 fl-1e8ba8b5a-3b5 fl-1e8ba8b5a-3b6  d ggetter gindex  fl-1e8ba8b5a-3a3 fl-1e8ba8b5a-3a4  d N1 ~~~ fl-1e8ba8b5a-39e fl-1e8ba8b5a-39f fl-1e8ba8b5a-3a0  d szsssss _ | \] gck gerr gs   fl-a15fd730aa5-2e fl-a15fd730aa5-2f  d szssss  _ gquote _ ~s _R   g%%index _ | \] fl-a15fd730aa5-33 fl-a15fd730aa5-34  d szssss  _ _ s _    g%%copier _ | \] fl-a15fd730aa5-38 fl-a15fd730aa5-39  d szssss  _ _ g%%-set-fields ~s _   gt-a15fd730aa5-28  fl-a15fd730aa5-3d  d szssss  _` szsssss _  gif _ _l _n  ~s _R  g struct-ref _ s _   _x _ _$     ~s _{ g%response-code-procedure gm-a15fd730aa5-44 b  fl-a15fd730aa5-46  du szssss  _} |  ]  szsssss  _   |   \  ]  fl-a15fd730aa5-49 fl-a15fd730aa5-4a  d szssss  _ _ ~s _R   _  | \ ] fl-a15fd730aa5-4e fl-a15fd730aa5-4f   d ! szssss  "_! #_! $ s %_ $ &#% '& (_  )|( *\ )] +fl-a15fd730aa5-53 ,fl-a15fd730aa5-54 -+, .d- /.szssss  0_/ 1_/ 2~.s 3_2 413 54 6gt-a15fd730aa5-43 76 8fl-a15fd730aa5-58 98 :d79 ;:szssss  <_`; =:szsssss >_= ?> @_= A_l= B_n= CB> D~:s E_RD FACE G_= H:s I_ H JG>I K_x= L_= M_%D NLM OK>N P@FJO Q<?P R~s S_R Tg%response-reason-phrase Ug"%%response-reason-phrase-procedure Vgm-a15fd730aa5-5f WVb XW Yfl-a15fd730aa5-61 ZY [duXZ \Ws[zssss  ]_}\ ^|] _^] `s[zsssss a_` b|a c\_b] dWW efl-a15fd730aa5-64 ffl-a15fd730aa5-65 gef hddg iWhs[zssss  j_i k_i l~hs[ m_Rl nkm on p_` q|p r\_q] sfl-a15fd730aa5-69 tfl-a15fd730aa5-6a ust vddu wWvs[zssss  x_w y_w zvs[ {_ z |y{ }| ~_` |~ \_] fl-a15fd730aa5-6e fl-a15fd730aa5-6f  dd Ws[zssss  _ _ ~s[ _   gt-a15fd730aa5-5e  fl-a15fd730aa5-73  dX Ws[zssss  _` s[zsssss _  _ _l _n  ~s[ _R  _ s[ _   _x _ _T     ~s[ _U g%response-headers-procedure gm-a15fd730aa5-7a b  fl-a15fd730aa5-7c  du szssss  _} | ] szsssss _ | \]  fl-a15fd730aa5-7f fl-a15fd730aa5-80  d szssss  _ _ ~s _R   _ | \] fl-a15fd730aa5-84 fl-a15fd730aa5-85  d szssss  _ _ s _    _ | \] fl-a15fd730aa5-89 fl-a15fd730aa5-8a  d szssss  _ _ ~s _   gt-a15fd730aa5-79  fl-a15fd730aa5-8e  d szssss  _` szsssss _  _ _l _n  ~s _R  _ s _   _x _ _'     ~s _ g%response-port-procedure gm-a15fd730aa5-95 b  fl-a15fd730aa5-97  du szssss  _} |  ]  szsssss  _   |   \  ]  fl-a15fd730aa5-9a fl-a15fd730aa5-9b  d szssss  _ _ ~s _R   _  | \ ] fl-a15fd730aa5-9f fl-a15fd730aa5-a0   d ! szssss  "_! #_! $ s %_ $ &#% '& (_  )|( *\ )] +fl-a15fd730aa5-a4 ,fl-a15fd730aa5-a5 -+, .d- /.szssss  0_/ 1_/ 2~.s 3_2 413 54 6gt-a15fd730aa5-94 76 8fl-a15fd730aa5-a9 98 :d79 ;:szssss  <_`; =:szsssss >_= ?> @_= A_l= B_n= CB> D~:s E_RD FACE G_= H:s I_ H JG>I K_x= L_= M_(D NLM OK>N P@FJO Q<?P R~s S_R Tgeach U]] VTU W]V X]W Y]X Zg %%set-fields [gdummy \gcheck? ]gexpr ^[\] _gm-a15fd730aa5-b0 `_b a` bfl-a15fd730aa5-b5 cfl-a15fd730aa5-b6 dfl-a15fd730aa5-b7 efl-a15fd730aa5-b8 ffl-a15fd730aa5-b9 gbcdef hd^ag i` jfl-a15fd730aa5-b2 kj lduik mgt-1e8ba8b5a-3c4 ngt-1e8ba8b5a-3c6 ogt-1e8ba8b5a-3c5 pmno qgm-1e8ba8b5a-3c7 rqb srrr tfl-1e8ba8b5a-3cb ufl-1e8ba8b5a-3cc vfl-1e8ba8b5a-3cd wtuv xdpsw yfl-1e8ba8b5a-3c1 zfl-1e8ba8b5a-3c2 {fl-1e8ba8b5a-3c3 |yz{ }d| ~hslzsxsss}  _Z~ ~hsl _R _$ _% _T _' _(  gmap   glist gthrow g bad-response gnumber? gexact? ginteger? gnon-negative-integer? g valid-header? gvalidate-headers fBad value for header ~a: ~s fHeader not a pair: ~a fHeaders not a list: ~a gversionS   gcodeS   g reason-phraseS   gheadersS   gportS   gvalidate-headers?S      fBad version: ~a f Bad code: ~a gstring? fBad reason phrase fContinue  d fSwitching Protocols  e fOK   fCreated   fAccepted   fNon-Authoritative Information   f No Content   f Reset Content   fPartial Content   fMultiple Choices  , fMoved Permanently  - fFound  . f See Other  / f Not Modified  0Ì f Use Proxy  1Ō fTemporary Redirect  3nj f Bad Request  Ɍ f Unauthorized  ˌ fPayment Required  ͌ f Forbidden  ό f Not Found  ь fMethod Not Allowed  ӌ fNot Acceptable  Ռ fProxy Authentication Required  ׌ fRequest Timeout  ٌ fConflict  ی fGone  ݌ fLength Required  ߌ fPrecondition Failed  ጤ fRequest Entity Too Large  ㌤ fRequest-URI Too Long  匤 fUnsupported Media Type  猤 fRequested Range Not Satisfiable  錤 fExpectation Failed  댤 fInternal Server Error  팤 fNot Implemented   f Bad Gateway   fService Unavailable   fGateway Timeout   fHTTP Version Not Supported   ( g*reason-phrases* gassv-ref f (Unknown) gcode->reason-phrase gsymbol->string gstring-prefix? ftext/ gstring-suffix? f/xml f+xml gset-port-encoding! f ISO-8859-1 gread-response-line g read-headers gwrite-response-line  g write-headers  gdisplay  f   g close-port  gmake-custom-binary-input-port fdelimited input port gmin g eof-object? f/EOF while reading response body: ~a bytes of ~a gget-bytevector-n! gmake-delimited-input-port gdecode?S   g keep-alive?S    gmember gchunked  gmake-chunked-input-port gmemq gclose    g keep-alive !gassq-ref "gcharset #gand=> $gget-bytevector-all %gvu8 j &gput-bytevector 'gdefine-response-accessor ( )fl-a15fd730aa5-22a *) +d(* ,fl-a15fd730aa5-227 -, .du- /~+s. 0_'/ 1_/ 21 3\]] 4g datum->syntax 5g symbol-append 6g response- 7g syntax->datum 8gdefine* 9gt-a15fd730aa5-235 :9 ;gm-a15fd730aa5-236 <;b =< >fl-a15fd730aa5-239 ?> @d:=? Agdef BA Cfl-a15fd730aa5-231 Dfl-a15fd730aa5-232 ECD FdBE G~s@Fs. H_8G I_G JgoptionalS K_JG Lgdefault M_LG Ngcond O_NG Pgassq Q_PG R_G S_'G TSI UT Vg=> W_VG Xgcdr Y_XG ZWY [gelse \_[G ]\M ^] _g cache-control `g connection agdate bgpragma cgtrailer dgtransfer-encoding egupgrade fgvia ggwarning hgallow igcontent-encoding jgcontent-language kgcontent-length lgcontent-location mg content-md5 ng content-range og content-type pgexpires qg last-modified rg accept-ranges sgage tgetag uglocation vgproxy-authenticate wg retry-after xgserver ygvary zgwww-authenticateC5h`o]4   !"N54Q>"GRh]Cgversion  gcode  g reason-phrase   gheaders   gport   gfilenamefweb/response.scm S    gnameg%make-response-procedureCSR4VWX[^h]Cgt-a15fd730aa5-3  gt-a15fd730aa5-4  gt-a15fd730aa5-5   gt-a15fd730aa5-6   gt-a15fd730aa5-7      CWhS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/response.scm S   n C5WRR4 R>"G  SiRRRhu]$CCmgobj  gfilenamefweb/response.scm S    gnameg%response?-procedureC R4V#X[uh8]C0gt-a15fd730aa5-1c    C#hS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    Cwh]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/response.scm S   n C5#RRz$hz]& C6rgs  gfilenamefweb/response.scm S    gnameg%response-version-procedureC{R4V$X[h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-a15fd730aa5-28    C$hS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/response.scm S   C5$RRz%hw]& C6ogs  gfilenamefweb/response.scm S    gnameg%response-code-procedureCR4V%X[ h:]C2gerr  gs    C"'h:]C2gerr  gs    C*05h:]C2gerr  gs    CQh8]C0gt-a15fd730aa5-43    C%hS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    CSh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/response.scm S   C5%RRzTh ]& C6ygs  gfilenamefweb/response.scm S    gnameg"%%response-reason-phrase-procedureCUR4VTX[cjoh:]C2gerr  gs    Crx}h:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-a15fd730aa5-5e    CThS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/response.scm S   C5TRRz'h z]& C6rgs  gfilenamefweb/response.scm S    gnameg%response-headers-procedureCR4V'X[h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-a15fd730aa5-79    C'hS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/response.scm S   C5'RRz(h w]& C6ogs  gfilenamefweb/response.scm S    gnameg%response-port-procedureCR4V(X[ h:]C2gerr  gs    C"'h:]C2gerr  gs    C*05h:]C2gerr  gs    CQh8]C0gt-a15fd730aa5-94    C(hS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    CSh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/response.scm S   C5(R4VX[Yh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefweb/response.scm S   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5Rh-136gmessage gargs gfilenamefweb/response.scm \ ]  ]   gnameg bad-responseCRh0]45$ $45$6CCCgn  ,gfilenamefweb/response.scm _  `  `   `   `   `  `  & ` '  , gnamegnon-negative-integer?CRhXA]$<$(45$666(C69gheaders  Ugh Egk   =gv   =gfilenamefweb/response.scm b  c  c  d  d   e  e   f   f !  f g  , g  1 h $ 3 h  7 i = i  A j  E j K k  Q l  U l   U gnamegvalidate-headersCRR hP-/03## ####"4>"G"$45$45$"4>"G"~45$o X$]" $4>"@G"9"5$+45$""4 >"G""""r""j""'"""" Cgversion  Igcode  Ig reason-phrase   Igheaders   Igport   Igvalidate-headers?   Igfilenamefweb/response.scm n  n ( 8 o " Q v  U v  \ v  h r  k s  o r  p t  u t % w t  { s | u  u % u  s x  x  x  r  w  r  w + w |  }  r  y  y  z  z   z  H ~ #  I gversionS gcodeS g reason-phraseS gheadersS gportS gvalidate-headers?S gnamegbuild-responseg documentationf~Construct an HTTP response object. If VALIDATE-HEADERS? is true, the headers are each run through their respective validators.C*RRh ] 45$CCgcode  gt gfilenamefweb/response.scm        gnamegcode->reason-phraseCRRzT%hH'] &  " 45$C& " 456gresponse  Fgt  Fgfilenamefweb/response.scm     -  F   F gnamegresponse-reason-phraseg documentationfbReturn the reason phrase given in RESPONSE, or the standard reason phrase for the response's code.C&Rh@]4545$C45$C6gtype  ;gtype ;gt   ;gt  ( ;gfilenamefweb/response.scm            $  (  (  7  ;   ; gnamegtext-content-type?g documentationfsReturn #t if TYPE, a symbol as returned by `response-content-type', represents a textual type such as `text/plain'.CBRRhH]!4>"G4> G45Cgport  Cgversion ! Cgcode  ! Cg reason-phrase  ! Cgheaders  1 Cgfilenamefweb/response.scm        $  + 0 1   C gnameg read-responseg documentationfRead an HTTP response from PORT. As a side effect, sets the encoding on PORT to ISO-8859-1 (latin-1), so that reading one character reads one byte. See the discussion of character sets in "HTTP Responses" in the manual, for more information.C)R*Rz%'( h`I]& " 45&  " 45 &  " 4 56Agresponse  `gversion  `gfilenamefweb/response.scm  )  F  `   ` gnamegadapt-response-versiong documentationf}Adapt the given response to a different HTTP version. Returns a new HTTP response. The idea is that many applications might just build a response for the default HTTP version, and this method could handle a number of programmatic transformations to respond to older HTTP versions (0.9 and 1.0). But currently this function is a bit heavy-handed, just updating the version field.C+RRz$%& '  ( h( ]"4& " 45& " 4545>"G4&  " 45>"G4  >"G&  " 4 5&C& " 45& " 4545&  " 45Cgr  "gport  "gversion   "gcode   "g reason-phrase   "gheaders   "gfilenamefweb/response.scm     " , :  G  P  U  t  }      *  0    " gnamegwrite-responseg documentationkhWrite the given HTTP response to PORT. Returns a new response, whose  response-port will continue writing on PORT, perhaps using some transfer encoding.C,RRz%h ] & " 45 d$  Ǔ"$C& " 45 ̑$C& " 45 0Cgr  gb  5gt 5 gt ^ gfilenamefweb/response.scm     5  C ^  ^  l   gnamegresponse-must-not-include-body?g documentationkReturns  #t if the response R is not permitted to have a body. This is true for some response types, like those with code 304.C-R hM]L6Egfilenamefweb/response.scm       C h]4LM5"Y45$ML$ CML6" MNC $ $4L5"""4L5"~gbv  gstart  gcount   gcount   gret   mgfilenamefweb/response.scm               $  (  .  4  =  ?   B  E   J  N  R   S   e   m  n    gnamegread!Ch8]HH K$"OKOJ6gport  4glen  4g keep-alive?   4g bytes-read   4gclose   4gfilenamefweb/response.scm    #  ! 2   4    4 gnamegmake-delimited-input-portg documentationfReturn an input port that reads from PORT, and makes sure that exactly LEN bytes are available from PORT. Closing the returned port closes PORT, unless KEEP-ALIVE? is true.CR6Rz(=-2$ AB!"h-/03##H4455$(4&  " 45 5"4 5$(4 &  " 455"4 5$"4 455$"5& " 45$4 455"$&  " 45"&  " 45K$rJ$h45$Q45$24J45$">"G""""JCgr  gdecode?  g keep-alive?   gport  & gt  i =gt  gv  R gw  a gx  a gt  ~  gfilenamefweb/response.scm  )   -   .   6   :   ;   @   ^   c   i   r  w  &      " "  "  " "  #  # , #  # $  $  $ & $  $      %  " +  E -  K -  L .  q 0  v 1  | 1 / ~ 1  ~ 1   2   0 ,   gdecode?S g keep-alive?S gnamegresponse-body-portg documentationkReturn an input port from which the body of R can be read. The encoding of the returned port is set according to R's  content-type header, when it's textual, except if DECODE? is  #f . Return #f when no body is available. When KEEP-ALIVE? is  #f , closing the returned port also closes R's response port.C.R#.$%h(M] 445545$CCEgr  &gbody  &gfilenamefweb/response.scm 7  :   :   :   :   >  >  " ?   & gnamegread-response-bodyg documentationktReads the response body from R, as a bytevector. Returns  #f if there was no response body.C/R&Rz(h(]&  " 456gr  #gbv  #gfilenamefweb/response.scm B  E  # E   # gnamegwrite-response-bodyg documentationfIWrite BV, a bytevector, to the port corresponding to the HTTP response R.C0R4V'X[02h-]C%gfield    C3hj]6bgfield  gdef  gfilenamefweb/response.scm  L    C4567HIKMOQRUZ^hH] 444555     Cgfield  Egdef  Egtmp   Egfilenamefweb/response.scm  M   O  O % O 0  O   M   M   E C hPu]45$@45" 6$4?$@""mgx  Pgtmp Pgtmp  " Pgfilenamefweb/response.scm H   P C5'RP_Rz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm X  X (  X  F gnamegresponse-cache-controlC1RP`Rz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm Y  Y %  Y  F gnamegresponse-connectionC2RPaRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm Z  F gnameg response-dateC3RPbRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm [  [ !  [  F gnamegresponse-pragmaC4RPcRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm \  \ "  \  F gnamegresponse-trailerC5RPdRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm ]  ] ,  ]  F gnamegresponse-transfer-encodingC6RPeRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm ^  ^ "  ^  F gnamegresponse-upgradeC7RPfRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm _  _   _  F gnameg response-viaC8RPgRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm `  ` "  `  F gnamegresponse-warningC9RPhRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm d  d  d  F gnamegresponse-allowC:RPiRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm e  e +  e  F gnamegresponse-content-encodingC;RPjRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm f  f +  f  F gnamegresponse-content-languageCRPmRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm i  F gnamegresponse-content-md5C?RPnRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm j  F gnamegresponse-content-rangeC@RPoRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm k  F gnamegresponse-content-typeCARPpRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm l  F gnamegresponse-expiresCCRPqRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm m  F gnamegresponse-last-modifiedCDRPrRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm q  F gnamegresponse-accept-rangesCERPsRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm r  F gnameg response-ageCFRPtRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm s  F gnameg response-etagCGRPuRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm t  F gnamegresponse-locationCHRPvRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm u  F gnamegresponse-proxy-authenticateCIRPwRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm v  F gnamegresponse-retry-afterCJRPxRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm w  F gnamegresponse-serverCKRPyRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm x  x   x  F gnameg response-varyCLRPzRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm y  F gnamegresponse-www-authenticateCMRCgm  ,grtd : dgfilenamefweb/response.scm   , S " \ # _ %E b ) n )  ) * ,: .< 0 3 8 < A4 K  M 7 N B R X T Y U Z V [ W' \ XI ] Y_ ^ Zs _ [ ` \ d ] e ^ f _ g ` h a i c j d k e l f m g q h r i s j t k1 u l: v m= w nL x oW y 0  oY C6