123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130 |
- <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html401/loose.dtd">
- <html>
- <!-- Created on November 8, 2012 by texi2html 1.82
- texi2html was written by:
- Lionel Cons <[email protected]> (original author)
- Karl Berry <[email protected]>
- Olaf Bachmann <[email protected]>
- and many others.
- Maintained by: Many creative people.
- Send bugs and suggestions to <[email protected]>
- -->
- <head>
- <title>avram - a virtual machine code interpreter: B.3 Replace</title>
- <meta name="description" content="avram - a virtual machine code interpreter: B.3 Replace">
- <meta name="keywords" content="avram - a virtual machine code interpreter: B.3 Replace">
- <meta name="resource-type" content="document">
- <meta name="distribution" content="global">
- <meta name="Generator" content="texi2html 1.82">
- <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
- <style type="text/css">
- <!--
- a.summary-letter {text-decoration: none}
- blockquote.smallquotation {font-size: smaller}
- pre.display {font-family: serif}
- pre.format {font-family: serif}
- pre.menu-comment {font-family: serif}
- pre.menu-preformatted {font-family: serif}
- pre.smalldisplay {font-family: serif; font-size: smaller}
- pre.smallexample {font-size: smaller}
- pre.smallformat {font-family: serif; font-size: smaller}
- pre.smalllisp {font-size: smaller}
- span.roman {font-family:serif; font-weight:normal;}
- span.sansserif {font-family:sans-serif; font-weight:normal;}
- ul.toc {list-style: none}
- -->
- </style>
- </head>
- <body lang="en" bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080" alink="#FF0000">
- <a name="Replace"></a>
- <table cellpadding="1" cellspacing="1" border="0">
- <tr><td valign="middle" align="left">[<a href="Insert.html#Insert" title="Previous section in reading order"> < </a>]</td>
- <td valign="middle" align="left">[<a href="Transition.html#Transition" title="Next section in reading order"> > </a>]</td>
- <td valign="middle" align="left"> </td>
- <td valign="middle" align="left">[<a href="Reference-Implementations.html#Reference-Implementations" title="Beginning of this chapter or previous chapter"> << </a>]</td>
- <td valign="middle" align="left">[<a href="Reference-Implementations.html#Reference-Implementations" title="Up section"> Up </a>]</td>
- <td valign="middle" align="left">[<a href="Changes.html#Changes" title="Next chapter"> >> </a>]</td>
- <td valign="middle" align="left"> </td>
- <td valign="middle" align="left"> </td>
- <td valign="middle" align="left"> </td>
- <td valign="middle" align="left"> </td>
- <td valign="middle" align="left">[<a href="avram.html#Top" title="Cover (top) of document">Top</a>]</td>
- <td valign="middle" align="left">[<a href="avram_toc.html#SEC_Contents" title="Table of contents">Contents</a>]</td>
- <td valign="middle" align="left">[<a href="Function-Index.html#Function-Index" title="Index">Index</a>]</td>
- <td valign="middle" align="left">[<a href="avram_abt.html#SEC_About" title="About (help)"> ? </a>]</td>
- </tr></table>
- <hr size="1">
- <a name="Replace-1"></a>
- <h2 class="section">B.3 Replace</h2>
- <a name="index-replace-2"></a>
- <p>This code is needed in the discussion of assignment in <a href="Assignment.html#Assignment">Assignment</a>.
- where it serves as a solution to equation <em>E0</em>. The idea is that
- the function takes an argument of the form
- <code>((<var>locations</var>,<var>values</var>),<var>store</var>)</code> and returns the
- store with the values stored at the locations indicated.
- </p>
- <table><tr><td> </td><td><pre class="example">
- locations = compose(left,compose(left,argument))
- values = compose(right,compose(left,argument))
- store = compose(right,argument)
- replace =
- refer conditional(
- store,
- (
- conditional(
- compose(left,locations),
- (
- conditional(
- compose(right,locations),
- (
- (hired meta)(
- self,
- couple(
- (hired fan right)(locations,values),
- (hired meta)(
- self,
- couple(
- (hired fan left)(locations,values),
- store)))),
- couple(
- (hired meta)(
- self,
- couple(
- couple(compose(left,locations),values),
- compose(left,store))),
- compose(right,store)))),
- conditional(
- compose(right,locations),
- (
- couple(
- compose(left,store),
- (hired meta)(
- self,
- couple(
- couple(compose(right,locations),values),
- compose(right,store)))),
- values)))),
- (hired meta)(
- self,
- couple(couple(locations,values),constant (nil,nil)))))
- </pre></td></tr></table>
- <hr size="1">
- <p>
- <font size="-1">
- This document was generated on <i>November 8, 2012</i> using <a href="http://www.nongnu.org/texi2html/"><i>texi2html 1.82</i></a>.
- </font>
- <br>
- </p>
- </body>
- </html>
|