<div dir="ltr">Hi,<div><br></div><div>&#39;pretty-print&#39; in write.scm seems to behave the same way as &#39;display&#39;,</div><div>and I can&#39;t find any documentation about the function.</div><div><br></div><div>For instance, is there a way to make</div><div><br></div><div><span style="font-family:monospace"><span style="color:rgb(0,0,0)">(pretty-print &#39;(((hash-table &#39;(:place . 53) &#39;(:duration . 3473301/65534) &#39;(:pitches (hash-table &#39;(:place . 0) &#39;(:value . 0.0) &#39;(:logtype . 0) &#39;(:chance . 1.0)) (hash-table &#39;(:place . 347</span><br>3301/65534) &#39;(:value . 53.0) &#39;(:logtype . 0) &#39;(:chance . 1.0))) &#39;(:velocities (hash-table &#39;(:place . 0) &#39;(:value . 0.79998779296875) &#39;(:logtype . 0)) (hash-table &#39;(:place . 3473301/65534) &#39;(:value . 0.7999877929<br>6875) &#39;(:logtype . 0))) &#39;(:continues-next-block . #t)))))<br>
<br></span></div><div><span style="font-family:monospace"><br></span></div><div><span style="font-family:monospace">print out</span></div><div><span style="font-family:monospace"><br></span></div><div><span style="font-family:monospace">&quot;</span></div><div><div><font face="monospace">(((hash-table &#39;(:place . 53)</font></div><div><font face="monospace">              &#39;(:duration . 3473301/65534)</font></div><div><font face="monospace">              &#39;(:pitches (hash-table &#39;(:place . 0)</font></div><div><font face="monospace">                                     &#39;(:value . 0.0)</font></div><div><font face="monospace">                                     &#39;(:logtype . 0)</font></div><div><font face="monospace">                                     &#39;(:chance . 1.0)) </font></div><div><font face="monospace">                         (hash-table &#39;(:place . 3473301/65534)</font></div><div><font face="monospace">                                     &#39;(:value . 53.0)</font></div><div><font face="monospace">                                     &#39;(:logtype . 0)</font></div><div><font face="monospace">                                     &#39;(:chance . 1.0)))</font></div><div><font face="monospace">              &#39;(:velocities (hash-table &#39;(:place . 0)</font></div><div><font face="monospace">                                        &#39;(:value . 0.79998779296875)</font></div><div><font face="monospace">                                        &#39;(:logtype . 0))</font></div><div><font face="monospace">                            (hash-table &#39;(:place . 3473301/65534)</font></div><div><font face="monospace">                                        &#39;(:value . 0.79998779296875)</font></div><div><font face="monospace">                                        &#39;(:logtype . 0)))</font></div><div><font face="monospace">              &#39;(:continues-next-block . #t))))</font></div><div style="font-family:monospace">&quot;</div></div><div style="font-family:monospace">?</div><div style="font-family:monospace"><br></div><div style="font-family:monospace"><br></div><div style="font-family:monospace">Guile prints out this:</div><div style="font-family:monospace"><br></div><div style="font-family:monospace">&quot;</div><div style="font-family:monospace">(((hash-table
<br>    &#39;(:place . 53)
<br>    &#39;(:duration . 3473301/65534)
<br>    &#39;(:pitches
<br>       (hash-table
<br>         &#39;(:place . 0)
<br>         &#39;(:value . 0.0)
<br>         &#39;(:logtype . 0)
<br>         &#39;(:chance . 1.0))
<br>       (hash-table
<br>         &#39;(:place . 3473301/65534)
<br>         &#39;(:value . 53.0)
<br>         &#39;(:logtype . 0)
<br>         &#39;(:chance . 1.0)))
<br>    &#39;(:velocities
<br>       (hash-table
<br>         &#39;(:place . 0)
<br>         &#39;(:value . 0.79998779296875)
<br>         &#39;(:logtype . 0))
<br>       (hash-table
<br>         &#39;(:place . 3473301/65534)
<br>         &#39;(:value . 0.79998779296875)
<br>         &#39;(:logtype . 0)))
<br>    &#39;(:continues-next-block . #t))))<br>
&quot;</div><div style="font-family:monospace"><br></div><div style="font-family:monospace">which is good enough, perhaps even better, but s7 prints out this:</div><div style="font-family:monospace"><br></div><div style="font-family:monospace"><div>&quot;</div><div><span style="color:rgb(0,0,0)">(((hash-table &#39;(:place . 53) &#39;(:duration . 3473301/65534) &#39;(:pitches (hash-table &#39;(:place . 0) &#39;(:value . 0.0) &#39;(:logtype . 0) &#39;(:chance . 1.0)) (hash-table &#39;(:place . 3473301/65534) &#39;(:value . 53.0) &#39;(:logtype </span><br>. 0) &#39;(:chance . 1.0))) &#39;(:velocities (hash-table &#39;(:place . 0) &#39;(:value . 0.79998779296875) &#39;(:logtype . 0)) (hash-table &#39;(:place . 3473301/65534) &#39;(:value . 0.79998779296875) &#39;(:logtype . 0))) &#39;(:continues-nex<br>t-block . #t))))<br></div><div>&quot;</div><div><br></div></div><div style="font-family:monospace">which is just one lon gline.</div><div style="font-family:monospace"><br></div><div style="font-family:monospace">I&#39;ve tried to set the &quot;column&quot; argument for pretty-print, but it doesn&#39;t seem to make a difference.</div><div style="font-family:monospace"><br></div><div style="font-family:monospace">Thank you.</div><div style="font-family:monospace"><br></div></div>