Skip to content

Commit

Permalink
Version 9.0 doc update
Browse files Browse the repository at this point in the history
  • Loading branch information
damien-mattei committed May 26, 2024
1 parent 9406bbf commit 298bd84
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 6 deletions.
6 changes: 3 additions & 3 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -1255,7 +1255,7 @@ vector?))
<p style="text-align: left;">error: define: not allowed in an expression
context in: (define x 1)<br>
</p>
<p style="text-align: left;">for this reason i provide a <b>&amp; </b>macro
<p style="text-align: left;">for this reason i provide a <b>$+> </b>macro
that is defined with a <b>let </b>as this:<br>
</p>
<p style="text-align: left;"> </p>
Expand All @@ -1264,7 +1264,7 @@ vector?))
```scheme
(define-syntax &
(define-syntax $+>
(syntax-rules ()
((_ ev) ev)
((_ ev ...) (let () ev ...))))
Expand All @@ -1283,7 +1283,7 @@ vector?))
```scheme
(def bar (& (declare x y)
(def bar ($+> (declare x y)
{x <- 1}
{y <- 2}
(lambda (t) (+ x y t))))
Expand Down
6 changes: 3 additions & 3 deletions Scheme+io.html
Original file line number Diff line number Diff line change
Expand Up @@ -1262,15 +1262,15 @@ <h2>12.<u>Additional documentation:</u></h2>
<p style="text-align: left;">error: define: not allowed in an expression
context in: (define x 1)<br>
</p>
<p style="text-align: left;">for this reason i provide a <b>&amp; </b>macro
<p style="text-align: left;">for this reason i provide a <b>$+> </b>macro
that is defined with a <b>let </b>as this:<br>
</p>
<p style="text-align: left;"> </p>


<figure class="highlight"><pre><code class="language-scheme" data-lang="scheme"><span class="o"></span>

<span class="p">(</span><span class="k">define-syntax</span> <span class="nv">&amp;</span>
<span class="p">(</span><span class="k">define-syntax</span> <span class="nv">$+></span>
<span class="p">(</span><span class="k">syntax-rules</span> <span class="p">()</span>
<span class="p">((</span><span class="nf">_</span> <span class="nv">ev</span><span class="p">)</span> <span class="nv">ev</span><span class="p">)</span>
<span class="p">((</span><span class="nf">_</span> <span class="nv">ev</span> <span class="o">...</span><span class="p">)</span> <span class="p">(</span><span class="k">let</span> <span class="p">()</span> <span class="nv">ev</span> <span class="o">...</span><span class="p">))))</span>
Expand All @@ -1288,7 +1288,7 @@ <h2>12.<u>Additional documentation:</u></h2>

<figure class="highlight"><pre><code class="language-scheme" data-lang="scheme"><span class="o"></span>

<span class="p">(</span><span class="nf">def</span> <span class="nv">bar</span> <span class="p">(</span><span class="nf">&amp;</span> <span class="p">(</span><span class="nf">declare</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)</span>
<span class="p">(</span><span class="nf">def</span> <span class="nv">bar</span> <span class="p">(</span><span class="nf">$+></span> <span class="p">(</span><span class="nf">declare</span> <span class="nv">x</span> <span class="nv">y</span><span class="p">)</span>
<span class="p">{</span><span class="nv">x</span> <span class="nv">&lt;-</span> <span class="mi">1</span><span class="p">}</span>
<span class="p">{</span><span class="nv">y</span> <span class="nv">&lt;-</span> <span class="mi">2</span><span class="p">}</span>
<span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nf">t</span><span class="p">)</span> <span class="p">(</span><span class="nb">+</span> <span class="nv">x</span> <span class="nv">y</span> <span class="nv">t</span><span class="p">))))</span>
Expand Down

0 comments on commit 298bd84

Please sign in to comment.