asda?‰PNG  IHDR ? f ??C1 sRGB ??é gAMA ±? üa pHYs ? ??o¨d GIDATx^íüL”÷e÷Y?a?("Bh?_ò???￠§?q5k?*:t0A-o??￥]VkJ￠M??f?±8\k2íll￡1]q?ù???T GOOF----LE-8-2.0F\]4h] gguile  gdefine-module*   gice-9 g pretty-print  gfilenameS fice-9/pretty-print.scm gimportsS gmatch     gsrfi gsrfi-1   grnrs g bytevectors    gexportsS gtruncated-print  gset-current-module   g make-string ggenwrite:newline-str g string-length !f( "gfold #f  $f) %gobject->string &gdisplay 'gwrite (gquote )f' *g quasiquote +f` ,gunquote -f, .gunquote-splicing /f,@ 0f  1g substring 2gmin 3g generic-write 4f 5greverse-string-append 6g vector->list 7f# 8gsymbol->string 9f. :glambda ;glambda* gdefine ?gdefine* @g define-public Ag define-syntax Bg let-syntax Cg letrec-syntax Dg with-syntax Egif Fgset! Ggcond Hgcase Igand Jgor Kglet Lgbegin Mgdo Ng syntax-rules Og syntax-case Pg string-set! Qg string-ref RgportS SR  TgwidthS UT  Vgmax-expr-widthS WV  Xgdisplay?S YX  Zgper-line-prefixS [Z  \SUWY[ ]gcurrent-output-port ^X  _gbreadth-first?S `_  aSU^` bg%default-port-encoding cg port-encoding dgcatch egencoding-error fg!%default-port-conversion-strategy ggerror hgwith-output-to-string ik&  jf... kgmax lgfloor mfexpected a positive width nglength ogcdr pf#( qg vector-length rg vector-ref sgidentity tg bytevector? ugformat vf#~a( wg array-type xg array-length yg array-ref zf.  {gstring-prefix? |gstring-suffix? }f~a~a~a~a ~f#< f> ~ p$ !$ f"   gwith-output-to-portC5hR]4   54>"G4i  5R h(]$4L5$ 45CCCgstr  "gcol  "gfilenamefice-9/pretty-print.scm 9   :  :  :   : !  :   " gnamegoutC!"#h(]L$4L5$ ""6gi  'gcol  'gfilenamefice-9/pretty-print.scm G  :  :  H %  :  :   : !  :  ' H   ' C$%&' ()*+,-./hX]""$$V4L$4L5$ ""54LLO5$4L5$ CCC4L$"5$4L5$ 45CCC4L$"5$4L5$ 45CCC$j &$(yL $ ". $ " $"$"$4L5$45""6""| &$(yL $ ". $ " $"$"$4L5$45""6"" &$(yL $ ". $ " $"$"$4L5$45""6"R"N&$(yL $ ". $ " $"$"$4L5$45""6""""gobj  Wgcol  Wgw   gx   gcol  D tgcol  X tgstr  gstr  gw  Sgx  Sgw   ghead   Vgstr  V gw   ghead   gstr   gw  : ghead  B gstr   gw   Gghead   gstr   Egfilenamefice-9/pretty-print.scm =   ?   E  ) :  * : . E $ 0 : 4 :  7 : ! 8 :  D E  D E G G  X F ` :  a : e F  g : k :  n : ! o :  u K   K " K  K :  : :  : ! :  K  K " K  K :  : :  : ! :  ?   2   2   3  ! 4  . 3  0 5  = 3  ? 6  L 3  N 7  V A  ^ :  _ : i :  l : ! s :   A  ?   2   2   3   4   3   5   3   6   3   7   A   :   :  :   : !  :   A  ?  B 2  B 2  M 3  O 4  \ 3  ^ 5  k 3  m 6  z 3  | 7   A   :   :  :   : !  :   A  ?   2   2   3   4   3   5   3   6   3   7   A  # :  $ : . :  1 : ! 8 :  G A K ? q  W gnamegloopCh ] OLLLQ6gobj  gcol  gloop  gfilenamefice-9/pretty-print.scm <  =   gnamegwrC01 hp>]  $b $- $4L5$  """4 5$4L5$ 45CCCC6gn  ogcol  ogstr  J lgfilenamefice-9/pretty-print.scm O   P P   Q  Q   R   :   : # R  % : ) :  - : ! . :  @ R A S  E S  J S  J S R :  S : ] :  ` : ! g :   o gnamegspacesC hh] $^$J4L5$45"$#4LL5$ 4L5$L 6CCCL6Cgto  hgcol  hgstr   2gfilenamefice-9/pretty-print.scm V   W  X   X  Y   : :  # : ! * :  6 Y 7 : A Y C : ! J :  N :  U [  b \  f \   h gnamegindentC234 h ]MNM45NM Cgstr  gfilenamefice-9/pretty-print.scm c  d  d  e !  e   e   f    C5 67! h],$"$4LL5HH4LLO>"GJ $)4J5$4L5$ 45CCC$ 645$4L5$ ""$4L 5$ ""LL6L6gobj  gcol  gextra   gpp-pair   gresult  & gleft  & gstr  [ }gl  gcol  gcol   gfilenamefice-9/pretty-print.scm ^   _  _ _   _   _   `   a   a  ! a  " a  & a  & `  + b 6 b 8 D b P g  T g U h  [ h c :  d : n :  q : ! x :  i  i j  k  :  : k / : :  : ! :  k  :  :  : :  : ! :    l 0  gnamegprC(*,.)+-/ 8! hx]$"!$"$"$$""${L$".$"$"$"$4L5$4 5""L6$|4L5$ 64 4 55 $LL64L$4L 5$ ""5$LL6C$4L 5$ ""LL6pgexpr  gcol  gextra   ghead   Zgtail   Zghead  g gstr  ghead  gproc  agcol*  G agcol    gfilenamefice-9/pretty-print.scm n   )   )   )   *  B (  F (  I ( / J ( ( ^ o  c /  g 2  g 2  r 3  t 4  3  5  3  6  3  7  q :  : :  : ! :  p  t  t  u  u v  v w  x  y   y &  y   y   y   {  !  &  , :  - : 1 & 3 : 7 :  : : ! ; :  G  G  O  T  Y & _ g :  h : l  n : r :  u : ! v :     C   gnamegpp-exprC$9h/]%"$|$4(" 4L4L55"(4L5$ CCL4L4L4L4L55556C"p'gl  gcol1  gcol2   gextra   gpp-item   gl   gcol   grest   Ggextra  & G gfilenamefice-9/pretty-print.scm            # ! 4 &  +  0 " 1 * ?  G  M N : R  T : X :  [ : ! \ :  c  d  i  n * r / s 3 } *      #  gnamegpp-downC!#hP]?"m"    "Y$K$@   ("   4L 4L  5 5   " """c"L 6$G$<   ("   4L 4L  5 5 " """L 64L$4L5$ ""5 "     "$U$J  4L  $4L5$ ""5       "u""Hgexpr  gcol  gextra   gnamed?   gpp-1   gpp-2   gpp-3   grest   sgcol1   sgcol2  sgcol3  sgval1 . kgrest 3 kgextra C kgrest  w gcol1  w gcol2 w gcol3 w gval1 grest gextra grest  gcol1  gcol2 ghead  grest  gcol*  gname J grest O gcol** w gfilenamefice-9/pretty-print.scm       '  + .  . 3  3 ;  > ) C J  O & ]  k w        )  &          :   :  !  :  :   : !  :      )  . 2 : :  C  G J  J O  O R  \ :  ] : a & c : g :  j : ! k :  w  w    5  I   gnameg pp-generalC!h8] $4L5$ ""LL6gl  1gcol  1gextra   1gcol  ! 1gfilenamefice-9/pretty-print.scm   :  :   :  :   : !  :  !  1   1 gnameg pp-expr-listCh]LLL6gexpr  gcol  gextra   gfilenamefice-9/pretty-print.scm      gnameg pp-LAMBDAC!hH(] 4L$4L5$ ""5$LL6C gexpr  Cgcol  Cgextra   Cgcol*  ) Cgfilenamefice-9/pretty-print.scm       :   :  &  :  :   : !  :  )  )  1  6  ; & A   C gnamegpp-CONDCh]LLLL6gexpr  gcol  gextra   gfilenamefice-9/pretty-print.scm      gnamegpp-DOC:;<=>?@ABCDEFh]LLL6gexpr  gcol  gextra   gfilenamefice-9/pretty-print.scm      gnamegpp-IFCGHh]LLL6gexpr  gcol  gextra   gfilenamefice-9/pretty-print.scm      gnamegpp-CASECIJ!hH'] 4L$4L5$ ""5$LL6Cgexpr  Cgcol  Cgextra   Cgcol*  ) Cgfilenamefice-9/pretty-print.scm       :   :  &  :  :   : !  :  )  )  1  6  ; & A   C gnamegpp-ANDCKh0]$"LLL6gexpr  *gcol  *gextra   *grest   *gnamed?   *gfilenamefice-9/pretty-print.scm          0  '   *   * gnamegpp-LETCLh]LL6gexpr  gcol  gextra   gfilenamefice-9/pretty-print.scm      gnamegpp-BEGINCMNOh]LLL6gexpr  gcol  gextra   gfilenamefice-9/pretty-print.scm      gnamegpp-SYNTAX-CASEChXz]$"$"u$"g$"Y$"K$"=$"/$"! $" $" $LC $" $ LLOC$LC$ LLLOC$"$LLLLOC$ LLLOC$ LLOC$LC$LC$ LLLOCCrghead  Xgfilenamefice-9/pretty-print.scm    X gnamegstyleC h]ZOOOOOOOO  O  O  O  LQLLQLLLLLQ LLQLLQLLQLQQ LLQ Q  LL  Q  6|gobj  gcol  gspaces  gindent  gpr  gpp-expr  gpp-down  g pp-general  g pp-expr-list  g pp-LAMBDA gpp-COND gpp-DO gstyle  gfilenamefice-9/pretty-print.scm M      gnamegppC hr]OOOQQQ45$ 45"$44 5>"G"4 >"GCjgobj  gdisplay?  gwidth   gmax-expr-width   gper-line-prefix   goutput   gout  " gwr  " gpp  "  gfilenamefice-9/pretty-print.scm $ B : L :  N : ! U :  `  a  f  r     gnameg generic-writeC3R PQh]*$n454L5"7$+445>"G"C 45"6gl  }gi  }gstr  wglen   wgresult  $ wgj  * agk  * agfilenamefice-9/pretty-print.scm                       ( "  0 $   $   *   /   3  4   ;  $ H   S   V   ^   a   c  " l   o   w   }    } gnamegrev-string-appendCh] OQ 6gl  grev-string-append gfilenamefice-9/pretty-print.scm      gnamegreverse-string-appendC5R\]43 &hc]4L>"GC[gs  gfilenamefice-9/pretty-print.scm $   $    Ch-/03##$"45# O# 2##45O6gobj  ygport*  ygport   ygwidth   ygmax-expr-width   ygdisplay?   ygper-line-prefix   ygfilenamefice-9/pretty-print.scm  (   /  ' Z  ( e !  l !  y    y gportS gwidthS gmax-expr-widthS gdisplay?S gper-line-prefixS gnameg pretty-printg documentationfPretty-print OBJ on PORT, which is a keyword argument defaulting to the current output port. Formatting can be controlled by a number of keyword arguments: Each line in the output is preceded by the string PER-LINE-PREFIX, which is empty by default. The output lines will be at most WIDTH characters wide; the default is 79. If DISPLAY? is true, display rather than write representation will be used. Instead of with a keyword argument, you can also specify the output port directly after OBJ, like (pretty-print OBJ PORT).CRa]bcdefgh&ih\]6Tgfilenamefice-9/pretty-print.scm E   @   F    Ch\]Y4>ZCZFTgfilenamefice-9/pretty-print.scm B  C = D    Cjhx-13Cpgkey gargs gfilenamefice-9/pretty-print.scm G H  C &bchklh8]L4LLL5L$4 4LLL55"LL6gfilenamefice-9/pretty-print.scm \   ] $  ^ $  _ (  ` 1 ! ` A " ` 8 $ ` 1 % ` - ' _ ( 0 a 1 1 a ( 3 ]   3 C ho]%" $4 >"G"$C"iL$M64L5Y4LLLO5Z4>"G4545"e$> $" $L45 $"6"O"K " ggx  gwidth  glen   gref   gnext   gx   gwidth   gi   gt  ) gstr  n gt   gfilenamefice-9/pretty-print.scm L   M  P   P  Q  ) S ) R = V  > V B R H W K Z 9 T [  n Y q b  c  c  c & c  c ; c  R T  T  R T $ T T . T U  U ! U  U 1 U M $  gnamegprint-sequenceCgm&!nhr]Cjgx  gi  gfilenamefice-9/pretty-print.scm     *   Co$7pqrstuvwxyzhlh(]LLL$4L  5"L 6gfilenamefice-9/pretty-print.scm p   q " r "  s &  s 0  s -  s & # t & % q   % C# &'he]L$L6L6]gfilenamefice-9/pretty-print.scm     #   0   <   C{|}1hK]" $6$L L$:4>"G4L 45>"G6 6$L L$:4 >"G4L 4 5  >"G6 645$Q $B445>"G4L 45 >"G6 6$ L$4>"G "$  "$-4>"G4L >"dG"]4LLO54>"G4>"G45"p"a6 64LO54>"G45$""( "" "45${45$h45$V4545L$5444545L5M5""u"q"m"i"Q6Cgx  gwidth  gwidth  > gx  D gwidth  D gstr   gstr   gfixes  . gfilenamefice-9/pretty-print.scm                   !  %  &  *   /  8  A   B  * Q  ]   _  c   e  h  l   s   t  x  y  }        *                       *                  "   #  '  (  ,   1  >   >  D g  G j  K j P j U j  Y i Z k ^ k  c k l l u l  z l  o   o  u   v   v   v   w   w   w %  w   w   g                          $   . {  4  6  A   G  G  H   M  ! R   V  W   \  ! a   e  f   o   s  v   {  ' ~        '                       #   2   #   (   7   (             {   {   {       gnamegprintChS]LLL6Kgfilenamefice-9/pretty-print.scm      Ch:-/03 ##$"45# O##45YH45K4 J5 O O  Q Q 4   O>ZCZF2gx  gport*  gport   gwidth   gdisplay?   gbreadth-first?   gellipsis  ] gellipsis-width  s gprint-sequence  gprint  gfilenamefice-9/pretty-print.scm ) ( + / + * T ; ( ` A  d A  j A  m J  s J     gportS gwidthS gdisplay?S gbreadth-first?S gnamegtruncated-printg documentationfAPrint @var{x}, truncating the output, if necessary, to make it fit into @var{width} characters. By default, @var{x} will be printed using @code{write}, though that behavior can be overriden via the @var{display?} keyword argument. The default behaviour is to print depth-first, meaning that the entire remaining width will be available to each sub-expression of @var{x} -- e.g., if @var{x} is a vector, each member of @var{x}. One can attempt to "ration" the available width, trying to allocate it equally to each sub-expression, via the @var{breadth-first?} keyword argument.CRCgm  ,gfilenamefice-9/pretty-print.scm   - "  9 " 3 $ 7 ;  R )   R C6