2021-04-14 04:11:26 +00:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
< html >
< head >
< meta http-equiv = "content-type" content = "text/html; charset=UTF-8" >
< title > Mu - shell/evaluate.mu< / title >
< meta name = "Generator" content = "Vim/8.1" >
< meta name = "plugin-version" content = "vim8.1_v1" >
< meta name = "syntax" content = "none" >
< meta name = "settings" content = "number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=" >
2021-04-21 15:28:00 +00:00
< meta name = "colorscheme" content = "minimal-dark" >
2021-04-14 04:11:26 +00:00
< style type = "text/css" >
<!--
2021-04-21 15:28:00 +00:00
pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #a8a8a8; }
body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; }
2021-04-14 04:11:26 +00:00
a { color:inherit; }
* { font-size:12pt; font-size: 1em; }
.LineNr { }
.Delimiter { color: #c000c0; }
2021-06-06 05:16:51 +00:00
.CommentedCode { color: #8a8a8a; }
2021-06-16 04:50:13 +00:00
.muRegEdx { color: #878700; }
2021-06-06 05:16:51 +00:00
.muRegEbx { color: #8787af; }
.muRegEsi { color: #87d787; }
.muRegEdi { color: #87ffd7; }
.Constant { color: #008787; }
.Special { color: #ff6060; }
.PreProc { color: #c000c0; }
2021-04-14 04:11:26 +00:00
.muFunction { color: #af5f00; text-decoration: underline; }
2021-06-06 05:16:51 +00:00
.Folded { color: #080808; background-color: #949494; }
2021-04-14 04:11:26 +00:00
.muTest { color: #5f8700; }
.muComment { color: #005faf; }
2021-06-06 05:16:51 +00:00
.muRegEax { color: #875f00; }
.muRegEcx { color: #af875f; }
2021-04-14 04:11:26 +00:00
-->
< / style >
< script type = 'text/javascript' >
<!--
/* function to open any folds containing a jumped-to line before jumping to it */
function JumpToLine()
{
var lineNum;
lineNum = window.location.hash;
lineNum = lineNum.substr(1); /* strip off '#' */
if (lineNum.indexOf('L') == -1) {
lineNum = 'L'+lineNum;
}
var lineElem = document.getElementById(lineNum);
/* Always jump to new location even if the line was hidden inside a fold, or
* we corrected the raw number to a line ID.
*/
if (lineElem) {
lineElem.scrollIntoView(true);
}
return true;
}
if ('onhashchange' in window) {
window.onhashchange = JumpToLine;
}
-->
< / script >
< / head >
< body onload = 'JumpToLine();' >
< a href = 'https://github.com/akkartik/mu/blob/main/shell/evaluate.mu' > https://github.com/akkartik/mu/blob/main/shell/evaluate.mu< / a >
< pre id = 'vimCodeElement' >
2021-04-23 03:02:19 +00:00
< span id = "L1" class = "LineNr" > 1 < / span > < span class = "muComment" > # env is an alist of ((sym . val) (sym . val) ...)< / span >
2021-05-18 20:01:59 +00:00
< span id = "L2" class = "LineNr" > 2 < / span > < span class = "muComment" > # we never modify `_in-ah` or `env`< / span >
< span id = "L3" class = "LineNr" > 3 < / span > < span class = "muComment" > # ignore args past 'trace' on a first reading; they're for the environment not the language< / span >
2021-04-23 03:02:19 +00:00
< span id = "L4" class = "LineNr" > 4 < / span > < span class = "muComment" > # 'call-number' is just for showing intermediate progress; this is a _slow_ interpreter< / span >
2021-06-16 04:50:13 +00:00
< span id = "L5" class = "LineNr" > 5 < / span > < span class = "muComment" > # side-effects if not in a test (inner-screen-var != 0):< / span >
< span id = "L6" class = "LineNr" > 6 < / span > < span class = "muComment" > # prints intermediate states of the inner screen to outer screen< / span >
< span id = "L7" class = "LineNr" > 7 < / span > < span class = "muComment" > # (which may not be the real screen if we're using double-buffering)< / span >
< span id = "L8" class = "LineNr" > 8 < / span > < span class = "muComment" > # stops if a keypress is encountered< / span >
< span id = "L9" class = "LineNr" > 9 < / span > < span class = "muComment" > # Inner screen is what Lisp programs modify. Outer screen is shows the program< / span >
< span id = "L10" class = "LineNr" > 10 < / span > < span class = "muComment" > # and its inner screen to the environment.< / span >
< span id = "L11" class = "LineNr" > 11 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L11' > evaluate< / a > < / span > _in-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), _out-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), env-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > ), globals: (addr < a href = 'global.mu.html#L1' > global-table< / a > ), trace: (addr trace), inner-screen-var: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), inner-keyboard-var: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), definitions-created: (addr stream int), call-number: (addr int) < span class = "Delimiter" > {< / span >
< span id = "L12" class = "LineNr" > 12 < / span > < span class = "muComment" > # stack overflow? # disable when enabling Really-debug-print< / span >
< span id = "L13" class = "LineNr" > 13 < / span > < a href = '../315stack-debug.subx.html#L5' > check-stack< / a >
< span id = "L14" class = "LineNr" > 14 < / span > < span class = "Delimiter" > {< / span >
< span id = "L15" class = "LineNr" > 15 < / span > < span class = "PreProc" > var< / span > < a href = '../104test.subx.html#L29' > running-tests?< / a > /< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = '../104test.subx.html#L29' > running-tests?< / a >
< span id = "L16" class = "LineNr" > 16 < / span > compare < a href = '../104test.subx.html#L29' > running-tests?< / a > , < span class = "Constant" > 0< / span > /false
< span id = "L17" class = "LineNr" > 17 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L18" class = "LineNr" > 18 < / span > < a href = '../315stack-debug.subx.html#L26' > show-stack-state< / a >
< span id = "L19" class = "LineNr" > 19 < / span > < span class = "Delimiter" > }< / span >
< span id = "L20" class = "LineNr" > 20 < / span > < span class = "muComment" > # show intermediate progress on screen if necessary< / span >
< span id = "L21" class = "LineNr" > 21 < / span > < span class = "muComment" > # treat input at the real keyboard as interrupting< / span >
< span id = "L22" class = "LineNr" > 22 < / span > < span class = "Delimiter" > {< / span >
< span id = "L23" class = "LineNr" > 23 < / span > compare inner-screen-var, < span class = "Constant" > 0< / span >
< span id = "L24" class = "LineNr" > 24 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L25" class = "LineNr" > 25 < / span > < span class = "PreProc" > var< / span > call-number/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > copy call-number
< span id = "L26" class = "LineNr" > 26 < / span > compare call-number, < span class = "Constant" > 0< / span >
< span id = "L27" class = "LineNr" > 27 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L28" class = "LineNr" > 28 < / span > increment *call-number
< span id = "L29" class = "LineNr" > 29 < / span > < span class = "PreProc" > var< / span > tmp/< span class = "muRegEax" > eax< / span > : int < span class = "Special" > < -< / span > copy *call-number
< span id = "L30" class = "LineNr" > 30 < / span > tmp < span class = "Special" > < -< / span > and < span class = "Constant" > 0xf< / span > /responsiveness=< span class = "Constant" > 16< / span > < span class = "muComment" > # every 16 calls to evaluate< / span >
< span id = "L31" class = "LineNr" > 31 < / span > compare tmp, < span class = "Constant" > 0< / span >
< span id = "L32" class = "LineNr" > 32 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L33" class = "LineNr" > 33 < / span > < span class = "PreProc" > var< / span > inner-screen-var/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy inner-screen-var
< span id = "L34" class = "LineNr" > 34 < / span > < span class = "PreProc" > var< / span > inner-screen-var-addr/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *inner-screen-var
< span id = "L35" class = "LineNr" > 35 < / span > compare inner-screen-var-addr, < span class = "Constant" > 0< / span >
< span id = "L36" class = "LineNr" > 36 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L37" class = "LineNr" > 37 < / span > < span class = "PreProc" > var< / span > screen-obj-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = '../500fake-screen.mu.html#L14' > screen< / a > ) < span class = "Special" > < -< / span > get inner-screen-var-addr, screen-data
< span id = "L38" class = "LineNr" > 38 < / span > < span class = "PreProc" > var< / span > screen-obj/< span class = "muRegEax" > eax< / span > : (addr < a href = '../500fake-screen.mu.html#L14' > screen< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *screen-obj-ah
< span id = "L39" class = "LineNr" > 39 < / span > compare screen-obj, < span class = "Constant" > 0< / span >
< span id = "L40" class = "LineNr" > 40 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L41" class = "LineNr" > 41 < / span > < a href = 'sandbox.mu.html#L257' > render-screen< / a > < span class = "Constant" > 0< / span > /screen, screen-obj, < span class = "Constant" > 0x58< / span > /xmin, < span class = "Constant" > 2< / span > /ymin
< span id = "L42" class = "LineNr" > 42 < / span > < span class = "PreProc" > var< / span > key/< span class = "muRegEax" > eax< / span > : byte < span class = "Special" > < -< / span > < a href = '../102keyboard.subx.html#L21' > read-key< / a > < span class = "Constant" > 0< / span > /keyboard
< span id = "L43" class = "LineNr" > 43 < / span > compare key, < span class = "Constant" > 0< / span >
< span id = "L44" class = "LineNr" > 44 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L45" class = "LineNr" > 45 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " key pressed; interrupting..." < / span >
< span id = "L46" class = "LineNr" > 46 < / span > < span class = "Delimiter" > }< / span >
< span id = "L47" class = "LineNr" > 47 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L48" class = "LineNr" > 48 < / span > < span class = "Delimiter" > {< / span >
< span id = "L49" class = "LineNr" > 49 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L50" class = "LineNr" > 50 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L51" class = "LineNr" > 51 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L52" class = "LineNr" > 52 < / span > < span class = "PreProc" > return< / span >
< span id = "L53" class = "LineNr" > 53 < / span > < span class = "Delimiter" > }< / span >
< span id = "L54" class = "LineNr" > 54 < / span > < span class = "PreProc" > var< / span > in-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _in-ah
< span id = "L55" class = "LineNr" > 55 < / span > < span class = "CommentedCode" > #? dump-cell in-ah< / span >
< span id = "L56" class = "LineNr" > 56 < / span > < span class = "CommentedCode" > #? {< / span >
< span id = "L57" class = "LineNr" > 57 < / span > < span class = "CommentedCode" > #? var foo/eax: byte < - read-key 0/keyboard< / span >
< span id = "L58" class = "LineNr" > 58 < / span > < span class = "CommentedCode" > #? compare foo, 0< / span >
< span id = "L59" class = "LineNr" > 59 < / span > < span class = "CommentedCode" > #? loop-if-=< / span >
< span id = "L60" class = "LineNr" > 60 < / span > < span class = "CommentedCode" > #? }< / span >
2021-06-23 20:19:20 +00:00
< span id = "L61" class = "Folded" > 61 < / span > < span class = "Folded" > +-- 19 lines: # trace " evaluate " in " in environment " env --------------------------------------------------------------------------------------------------------------------------------------------------------< / span >
2021-06-16 04:50:13 +00:00
< span id = "L80" class = "LineNr" > 80 < / span > < a href = 'trace.mu.html#L239' > trace-lower< / a > trace
< span id = "L81" class = "LineNr" > 81 < / span > < span class = "PreProc" > var< / span > in/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *in-ah
< span id = "L82" class = "LineNr" > 82 < / span > < span class = "Delimiter" > {< / span >
< span id = "L83" class = "LineNr" > 83 < / span > < span class = "PreProc" > var< / span > < a href = 'print.mu.html#L347' > nil?< / a > /< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > in
< span id = "L84" class = "LineNr" > 84 < / span > compare < a href = 'print.mu.html#L347' > nil?< / a > , < span class = "Constant" > 0< / span > /false
< span id = "L85" class = "LineNr" > 85 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L86" class = "LineNr" > 86 < / span > < span class = "muComment" > # nil is a literal< / span >
< span id = "L87" class = "LineNr" > 87 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " nil" < / span >
< span id = "L88" class = "LineNr" > 88 < / span > copy-object _in-ah, _out-ah
< span id = "L89" class = "LineNr" > 89 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L90" class = "LineNr" > 90 < / span > < span class = "PreProc" > return< / span >
< span id = "L91" class = "LineNr" > 91 < / span > < span class = "Delimiter" > }< / span >
< span id = "L92" class = "LineNr" > 92 < / span > < span class = "PreProc" > var< / span > in-type/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get in, < span class = "PreProc" > type< / span >
< span id = "L93" class = "LineNr" > 93 < / span > compare *in-type, < span class = "Constant" > 1< / span > /number
< span id = "L94" class = "LineNr" > 94 < / span > < span class = "Delimiter" > {< / span >
< span id = "L95" class = "LineNr" > 95 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L96" class = "LineNr" > 96 < / span > < span class = "muComment" > # numbers are literals< / span >
< span id = "L97" class = "LineNr" > 97 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " number" < / span >
< span id = "L98" class = "LineNr" > 98 < / span > copy-object _in-ah, _out-ah
< span id = "L99" class = "LineNr" > 99 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L100" class = "LineNr" > 100 < / span > < span class = "PreProc" > return< / span >
< span id = "L101" class = "LineNr" > 101 < / span > < span class = "Delimiter" > }< / span >
< span id = "L102" class = "LineNr" > 102 < / span > compare *in-type, < span class = "Constant" > 3< / span > /stream
< span id = "L103" class = "LineNr" > 103 < / span > < span class = "Delimiter" > {< / span >
< span id = "L104" class = "LineNr" > 104 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L105" class = "LineNr" > 105 < / span > < span class = "muComment" > # streams are literals< / span >
< span id = "L106" class = "LineNr" > 106 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " stream" < / span >
< span id = "L107" class = "LineNr" > 107 < / span > copy-object _in-ah, _out-ah
< span id = "L108" class = "LineNr" > 108 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L109" class = "LineNr" > 109 < / span > < span class = "PreProc" > return< / span >
< span id = "L110" class = "LineNr" > 110 < / span > < span class = "Delimiter" > }< / span >
< span id = "L111" class = "LineNr" > 111 < / span > compare *in-type, < span class = "Constant" > 2< / span > /symbol
< span id = "L112" class = "LineNr" > 112 < / span > < span class = "Delimiter" > {< / span >
< span id = "L113" class = "LineNr" > 113 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L114" class = "LineNr" > 114 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " symbol" < / span >
< span id = "L115" class = "LineNr" > 115 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " a" < / span > , < span class = "Constant" > 7< / span > /fg, < span class = "Constant" > 0< / span > /bg
2021-06-23 20:19:20 +00:00
< span id = "L116" class = "LineNr" > 116 < / span > < a href = 'evaluate.mu.html#L868' > lookup-symbol< / a > in, _out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var
2021-06-16 04:50:13 +00:00
< span id = "L117" class = "LineNr" > 117 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " z" < / span > , < span class = "Constant" > 7< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L118" class = "LineNr" > 118 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L119" class = "LineNr" > 119 < / span > < span class = "PreProc" > return< / span >
< span id = "L120" class = "LineNr" > 120 < / span > < span class = "Delimiter" > }< / span >
< span id = "L121" class = "LineNr" > 121 < / span > compare *in-type, < span class = "Constant" > 5< / span > /screen
< span id = "L122" class = "LineNr" > 122 < / span > < span class = "Delimiter" > {< / span >
< span id = "L123" class = "LineNr" > 123 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L124" class = "LineNr" > 124 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " screen" < / span >
< span id = "L125" class = "LineNr" > 125 < / span > copy-object _in-ah, _out-ah
< span id = "L126" class = "LineNr" > 126 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L127" class = "LineNr" > 127 < / span > < span class = "PreProc" > return< / span >
< span id = "L128" class = "LineNr" > 128 < / span > < span class = "Delimiter" > }< / span >
< span id = "L129" class = "LineNr" > 129 < / span > compare *in-type, < span class = "Constant" > 6< / span > /keyboard
< span id = "L130" class = "LineNr" > 130 < / span > < span class = "Delimiter" > {< / span >
< span id = "L131" class = "LineNr" > 131 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L132" class = "LineNr" > 132 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " keyboard" < / span >
< span id = "L133" class = "LineNr" > 133 < / span > copy-object _in-ah, _out-ah
< span id = "L134" class = "LineNr" > 134 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L135" class = "LineNr" > 135 < / span > < span class = "PreProc" > return< / span >
< span id = "L136" class = "LineNr" > 136 < / span > < span class = "Delimiter" > }< / span >
< span id = "L137" class = "LineNr" > 137 < / span > < span class = "muComment" > # 'in' is a syntax tree< / span >
< span id = "L138" class = "LineNr" > 138 < / span > $evaluate:literal-function: < span class = "Delimiter" > {< / span >
< span id = "L139" class = "LineNr" > 139 < / span > < span class = "muComment" > # trees starting with " litfn" are literals< / span >
< span id = "L140" class = "LineNr" > 140 < / span > < span class = "PreProc" > var< / span > expr/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L141" class = "LineNr" > 141 < / span > < span class = "PreProc" > var< / span > in/< span class = "muRegEdx" > edx< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L142" class = "LineNr" > 142 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L143" class = "LineNr" > 143 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
2021-06-23 20:19:20 +00:00
< span id = "L144" class = "LineNr" > 144 < / span > < span class = "PreProc" > var< / span > < a href = 'evaluate.mu.html#L1429' > litfn?< / a > /< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'evaluate.mu.html#L1429' > litfn?< / a > first
< span id = "L145" class = "LineNr" > 145 < / span > compare < a href = 'evaluate.mu.html#L1429' > litfn?< / a > , < span class = "Constant" > 0< / span > /false
2021-06-16 04:50:13 +00:00
< span id = "L146" class = "LineNr" > 146 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L147" class = "LineNr" > 147 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " literal function" < / span >
< span id = "L148" class = "LineNr" > 148 < / span > copy-object _in-ah, _out-ah
< span id = "L149" class = "LineNr" > 149 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L150" class = "LineNr" > 150 < / span > < span class = "PreProc" > return< / span >
< span id = "L151" class = "LineNr" > 151 < / span > < span class = "Delimiter" > }< / span >
< span id = "L152" class = "LineNr" > 152 < / span > $evaluate:literal-macro: < span class = "Delimiter" > {< / span >
< span id = "L153" class = "LineNr" > 153 < / span > < span class = "muComment" > # trees starting with " litmac" are literals< / span >
< span id = "L154" class = "LineNr" > 154 < / span > < span class = "PreProc" > var< / span > expr/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L155" class = "LineNr" > 155 < / span > < span class = "PreProc" > var< / span > in/< span class = "muRegEdx" > edx< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L156" class = "LineNr" > 156 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L157" class = "LineNr" > 157 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
2021-06-23 20:19:20 +00:00
< span id = "L158" class = "LineNr" > 158 < / span > < span class = "PreProc" > var< / span > < a href = 'evaluate.mu.html#L1443' > litmac?< / a > /< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'evaluate.mu.html#L1443' > litmac?< / a > first
< span id = "L159" class = "LineNr" > 159 < / span > compare < a href = 'evaluate.mu.html#L1443' > litmac?< / a > , < span class = "Constant" > 0< / span > /false
2021-06-16 04:50:13 +00:00
< span id = "L160" class = "LineNr" > 160 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L161" class = "LineNr" > 161 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " literal macro" < / span >
< span id = "L162" class = "LineNr" > 162 < / span > copy-object _in-ah, _out-ah
< span id = "L163" class = "LineNr" > 163 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L164" class = "LineNr" > 164 < / span > < span class = "PreProc" > return< / span >
< span id = "L165" class = "LineNr" > 165 < / span > < span class = "Delimiter" > }< / span >
< span id = "L166" class = "LineNr" > 166 < / span > $evaluate:anonymous-function: < span class = "Delimiter" > {< / span >
< span id = "L167" class = "LineNr" > 167 < / span > < span class = "muComment" > # trees starting with " fn" are anonymous functions< / span >
< span id = "L168" class = "LineNr" > 168 < / span > < span class = "PreProc" > var< / span > expr/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L169" class = "LineNr" > 169 < / span > < span class = "PreProc" > var< / span > in/< span class = "muRegEdx" > edx< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L170" class = "LineNr" > 170 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L171" class = "LineNr" > 171 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
2021-06-23 20:19:20 +00:00
< span id = "L172" class = "LineNr" > 172 < / span > < span class = "PreProc" > var< / span > < a href = 'evaluate.mu.html#L1415' > fn?< / a > /< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'evaluate.mu.html#L1415' > fn?< / a > first
< span id = "L173" class = "LineNr" > 173 < / span > compare < a href = 'evaluate.mu.html#L1415' > fn?< / a > , < span class = "Constant" > 0< / span > /false
2021-06-16 04:50:13 +00:00
< span id = "L174" class = "LineNr" > 174 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L175" class = "LineNr" > 175 < / span > < span class = "muComment" > # turn (fn ...) into (litfn env ...)< / span >
< span id = "L176" class = "LineNr" > 176 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " anonymous function" < / span >
< span id = "L177" class = "LineNr" > 177 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L178" class = "LineNr" > 178 < / span > < span class = "PreProc" > var< / span > tmp: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L179" class = "LineNr" > 179 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEdi" > edi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp
< span id = "L180" class = "LineNr" > 180 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, env-h, *rest-ah
< span id = "L181" class = "LineNr" > 181 < / span > < span class = "PreProc" > var< / span > litfn: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L182" class = "LineNr" > 182 < / span > < span class = "PreProc" > var< / span > litfn-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address litfn
< span id = "L183" class = "LineNr" > 183 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > litfn-ah, < span class = "Constant" > " litfn" < / span >
< span id = "L184" class = "LineNr" > 184 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > _out-ah, *litfn-ah, *tmp-ah
< span id = "L185" class = "LineNr" > 185 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L186" class = "LineNr" > 186 < / span > < span class = "PreProc" > return< / span >
< span id = "L187" class = "LineNr" > 187 < / span > < span class = "Delimiter" > }< / span >
< span id = "L188" class = "LineNr" > 188 < / span > < span class = "muComment" > # builtins with " special" evaluation rules< / span >
< span id = "L189" class = "LineNr" > 189 < / span > $evaluate:quote: < span class = "Delimiter" > {< / span >
< span id = "L190" class = "LineNr" > 190 < / span > < span class = "muComment" > # trees starting with single quote create literals< / span >
< span id = "L191" class = "LineNr" > 191 < / span > < span class = "PreProc" > var< / span > expr/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L192" class = "LineNr" > 192 < / span > < span class = "muComment" > # if its first elem is not " '" , break< / span >
< span id = "L193" class = "LineNr" > 193 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L194" class = "LineNr" > 194 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L195" class = "LineNr" > 195 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
< span id = "L196" class = "LineNr" > 196 < / span > < span class = "PreProc" > var< / span > quote?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > first, < span class = "Constant" > " '" < / span >
< span id = "L197" class = "LineNr" > 197 < / span > compare quote?, < span class = "Constant" > 0< / span > /false
< span id = "L198" class = "LineNr" > 198 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L199" class = "LineNr" > 199 < / span > < span class = "muComment" > #< / span >
< span id = "L200" class = "LineNr" > 200 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " quote" < / span >
< span id = "L201" class = "LineNr" > 201 < / span > copy-object rest-ah, _out-ah
< span id = "L202" class = "LineNr" > 202 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L203" class = "LineNr" > 203 < / span > < span class = "PreProc" > return< / span >
< span id = "L204" class = "LineNr" > 204 < / span > < span class = "Delimiter" > }< / span >
< span id = "L205" class = "LineNr" > 205 < / span > $evaluate:backquote: < span class = "Delimiter" > {< / span >
< span id = "L206" class = "LineNr" > 206 < / span > < span class = "muComment" > # trees starting with single backquote create literals< / span >
< span id = "L207" class = "LineNr" > 207 < / span > < span class = "PreProc" > var< / span > expr/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L208" class = "LineNr" > 208 < / span > < span class = "muComment" > # if its first elem is not " '" , break< / span >
< span id = "L209" class = "LineNr" > 209 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L210" class = "LineNr" > 210 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L211" class = "LineNr" > 211 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
< span id = "L212" class = "LineNr" > 212 < / span > < span class = "PreProc" > var< / span > backquote?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > first, < span class = "Constant" > " `" < / span >
< span id = "L213" class = "LineNr" > 213 < / span > compare backquote?, < span class = "Constant" > 0< / span > /false
< span id = "L214" class = "LineNr" > 214 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L215" class = "LineNr" > 215 < / span > < span class = "muComment" > #< / span >
< span id = "L216" class = "LineNr" > 216 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " backquote" < / span >
< span id = "L217" class = "LineNr" > 217 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " `(" < / span > , < span class = "Constant" > 7< / span > /fg, < span class = "Constant" > 0< / span > /bg
2021-06-23 20:19:20 +00:00
< span id = "L218" class = "LineNr" > 218 < / span > < a href = 'evaluate.mu.html#L1639' > evaluate-backquote< / a > rest-ah, _out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
2021-06-16 04:50:13 +00:00
< span id = "L219" class = "LineNr" > 219 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " )" < / span > , < span class = "Constant" > 7< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L220" class = "LineNr" > 220 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L221" class = "LineNr" > 221 < / span > < span class = "PreProc" > return< / span >
< span id = "L222" class = "LineNr" > 222 < / span > < span class = "Delimiter" > }< / span >
2021-06-23 20:19:20 +00:00
< span id = "L223" class = "LineNr" > 223 < / span > $evaluate:< a href = 'evaluate.mu.html#L655' > apply< / a > : < span class = "Delimiter" > {< / span >
< span id = "L224" class = "LineNr" > 224 < / span > < span class = "PreProc" > var< / span > expr/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L225" class = "LineNr" > 225 < / span > < span class = "muComment" > # if its first elem is not " apply" , break< / span >
< span id = "L226" class = "LineNr" > 226 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L227" class = "LineNr" > 227 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L228" class = "LineNr" > 228 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
< span id = "L229" class = "LineNr" > 229 < / span > < span class = "PreProc" > var< / span > apply?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > first, < span class = "Constant" > " apply" < / span >
< span id = "L230" class = "LineNr" > 230 < / span > compare apply?, < span class = "Constant" > 0< / span > /false
< span id = "L231" class = "LineNr" > 231 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L232" class = "LineNr" > 232 < / span > < span class = "muComment" > #< / span >
< span id = "L233" class = "LineNr" > 233 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " apply" < / span >
< span id = "L234" class = "LineNr" > 234 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " evaluating first arg" < / span >
< span id = "L235" class = "LineNr" > 235 < / span > < span class = "PreProc" > var< / span > first-arg-value-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L236" class = "LineNr" > 236 < / span > < span class = "PreProc" > var< / span > first-arg-value-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address first-arg-value-h
< span id = "L237" class = "LineNr" > 237 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L238" class = "LineNr" > 238 < / span > < span class = "PreProc" > var< / span > first-arg-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L239" class = "LineNr" > 239 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " A2" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L240" class = "LineNr" > 240 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > first-arg-ah, first-arg-value-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L241" class = "LineNr" > 241 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " Y2" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L242" class = "LineNr" > 242 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L243" class = "LineNr" > 243 < / span > < span class = "Delimiter" > {< / span >
< span id = "L244" class = "LineNr" > 244 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L245" class = "LineNr" > 245 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L246" class = "LineNr" > 246 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L247" class = "LineNr" > 247 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L248" class = "LineNr" > 248 < / span > < span class = "PreProc" > return< / span >
< span id = "L249" class = "LineNr" > 249 < / span > < span class = "Delimiter" > }< / span >
< span id = "L250" class = "LineNr" > 250 < / span > < span class = "muComment" > #< / span >
< span id = "L251" class = "LineNr" > 251 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " evaluating second arg" < / span >
< span id = "L252" class = "LineNr" > 252 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L253" class = "LineNr" > 253 < / span > rest-ah < span class = "Special" > < -< / span > get rest, right
< span id = "L254" class = "LineNr" > 254 < / span > rest < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L255" class = "LineNr" > 255 < / span > < span class = "PreProc" > var< / span > second-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L256" class = "LineNr" > 256 < / span > < span class = "PreProc" > var< / span > second-arg-value-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L257" class = "LineNr" > 257 < / span > < span class = "PreProc" > var< / span > second-arg-value-ah/< span class = "muRegEdi" > edi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address second-arg-value-h
< span id = "L258" class = "LineNr" > 258 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " T2" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L259" class = "LineNr" > 259 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > second-ah, second-arg-value-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L260" class = "LineNr" > 260 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " U2" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L261" class = "LineNr" > 261 < / span > < span class = "muComment" > # apply< / span >
< span id = "L262" class = "LineNr" > 262 < / span > < a href = 'evaluate.mu.html#L655' > apply< / a > first-arg-value-ah, second-arg-value-ah, _out-ah, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L263" class = "LineNr" > 263 < / span > < span class = "muComment" > #< / span >
< span id = "L264" class = "LineNr" > 264 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L265" class = "LineNr" > 265 < / span > < span class = "PreProc" > return< / span >
< span id = "L266" class = "LineNr" > 266 < / span > < span class = "Delimiter" > }< / span >
< span id = "L267" class = "LineNr" > 267 < / span > $evaluate:define: < span class = "Delimiter" > {< / span >
< span id = "L268" class = "LineNr" > 268 < / span > < span class = "muComment" > # trees starting with " define" define globals< / span >
< span id = "L269" class = "LineNr" > 269 < / span > < span class = "PreProc" > var< / span > expr/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L270" class = "LineNr" > 270 < / span > < span class = "muComment" > # if its first elem is not " define" , break< / span >
< span id = "L271" class = "LineNr" > 271 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L272" class = "LineNr" > 272 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L273" class = "LineNr" > 273 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
< span id = "L274" class = "LineNr" > 274 < / span > < span class = "PreProc" > var< / span > define?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > first, < span class = "Constant" > " define" < / span >
< span id = "L275" class = "LineNr" > 275 < / span > compare define?, < span class = "Constant" > 0< / span > /false
< span id = "L276" class = "LineNr" > 276 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L277" class = "LineNr" > 277 < / span > < span class = "muComment" > #< / span >
< span id = "L278" class = "LineNr" > 278 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " define" < / span >
< span id = "L279" class = "LineNr" > 279 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " evaluating second arg" < / span >
< span id = "L280" class = "LineNr" > 280 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L281" class = "LineNr" > 281 < / span > < span class = "PreProc" > var< / span > first-arg-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L282" class = "LineNr" > 282 < / span > < span class = "Delimiter" > {< / span >
< span id = "L283" class = "LineNr" > 283 < / span > < span class = "PreProc" > var< / span > first-arg/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-arg-ah
< span id = "L284" class = "LineNr" > 284 < / span > < span class = "PreProc" > var< / span > first-arg-type/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get first-arg, < span class = "PreProc" > type< / span >
< span id = "L285" class = "LineNr" > 285 < / span > compare *first-arg-type, < span class = "Constant" > 2< / span > /symbol
< span id = "L286" class = "LineNr" > 286 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L287" class = "LineNr" > 287 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " first arg to define must be a symbol" < / span >
< span id = "L288" class = "LineNr" > 288 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L289" class = "LineNr" > 289 < / span > < span class = "PreProc" > return< / span >
< span id = "L290" class = "LineNr" > 290 < / span > < span class = "Delimiter" > }< / span >
< span id = "L291" class = "LineNr" > 291 < / span > rest-ah < span class = "Special" > < -< / span > get rest, right
< span id = "L292" class = "LineNr" > 292 < / span > rest < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L293" class = "LineNr" > 293 < / span > < span class = "PreProc" > var< / span > second-arg-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L294" class = "LineNr" > 294 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " P" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L295" class = "LineNr" > 295 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > second-arg-ah, _out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L296" class = "LineNr" > 296 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " Q" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L297" class = "LineNr" > 297 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L298" class = "LineNr" > 298 < / span > < span class = "Delimiter" > {< / span >
< span id = "L299" class = "LineNr" > 299 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L300" class = "LineNr" > 300 < / span > compare error?, < span class = "Constant" > 0< / span > /false
2021-06-16 04:50:13 +00:00
< span id = "L301" class = "LineNr" > 301 < / span > < span class = "PreProc" > break-if-=< / span >
2021-06-23 20:19:20 +00:00
< span id = "L302" class = "LineNr" > 302 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L303" class = "LineNr" > 303 < / span > < span class = "PreProc" > return< / span >
< span id = "L304" class = "LineNr" > 304 < / span > < span class = "Delimiter" > }< / span >
< span id = "L305" class = "LineNr" > 305 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " saving < a href = 'global.mu.html#L7' > global< / a > binding" < / span >
< span id = "L306" class = "LineNr" > 306 < / span > < span class = "PreProc" > var< / span > first-arg/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-arg-ah
< span id = "L307" class = "LineNr" > 307 < / span > < span class = "PreProc" > var< / span > first-arg-data-ah/< span class = "muRegEax" > eax< / span > : (addr handle stream byte) < span class = "Special" > < -< / span > get first-arg, text-data
< span id = "L308" class = "LineNr" > 308 < / span > < span class = "PreProc" > var< / span > first-arg-data/< span class = "muRegEax" > eax< / span > : (addr stream byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-arg-data-ah
< span id = "L309" class = "LineNr" > 309 < / span > < span class = "PreProc" > var< / span > tmp-string: (handle array byte)
< span id = "L310" class = "LineNr" > 310 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEdx" > edx< / span > : (addr handle array byte) < span class = "Special" > < -< / span > address tmp-string
< span id = "L311" class = "LineNr" > 311 < / span > < a href = '../106stream.subx.html#L59' > rewind-stream< / a > first-arg-data
< span id = "L312" class = "LineNr" > 312 < / span > < a href = '../310copy-bytes.subx.html#L60' > stream-to-array< / a > first-arg-data, tmp-ah
< span id = "L313" class = "LineNr" > 313 < / span > < span class = "PreProc" > var< / span > first-arg-data-string/< span class = "muRegEax" > eax< / span > : (addr array byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L314" class = "LineNr" > 314 < / span > < span class = "PreProc" > var< / span > out-ah/< span class = "muRegEdi" > edi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _out-ah
< span id = "L315" class = "LineNr" > 315 < / span > < span class = "PreProc" > var< / span > defined-index: int
< span id = "L316" class = "LineNr" > 316 < / span > < span class = "PreProc" > var< / span > defined-index-addr/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > address defined-index
< span id = "L317" class = "LineNr" > 317 < / span > < a href = 'global.mu.html#L296' > assign-or-create-global< / a > globals, first-arg-data-string, *out-ah, defined-index-addr, trace
< span id = "L318" class = "LineNr" > 318 < / span > < span class = "Delimiter" > {< / span >
< span id = "L319" class = "LineNr" > 319 < / span > compare definitions-created, < span class = "Constant" > 0< / span >
< span id = "L320" class = "LineNr" > 320 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L321" class = "LineNr" > 321 < / span > < a href = '../309stream.subx.html#L54' > write-to-stream< / a > definitions-created, defined-index-addr
< span id = "L322" class = "LineNr" > 322 < / span > < span class = "Delimiter" > }< / span >
< span id = "L323" class = "LineNr" > 323 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L324" class = "LineNr" > 324 < / span > < span class = "PreProc" > return< / span >
< span id = "L325" class = "LineNr" > 325 < / span > < span class = "Delimiter" > }< / span >
< span id = "L326" class = "LineNr" > 326 < / span > $evaluate:set: < span class = "Delimiter" > {< / span >
< span id = "L327" class = "LineNr" > 327 < / span > < span class = "muComment" > # trees starting with " set" mutate bindings< / span >
< span id = "L328" class = "LineNr" > 328 < / span > < span class = "PreProc" > var< / span > expr/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L329" class = "LineNr" > 329 < / span > < span class = "muComment" > # if its first elem is not " set" , break< / span >
< span id = "L330" class = "LineNr" > 330 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L331" class = "LineNr" > 331 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L332" class = "LineNr" > 332 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
< span id = "L333" class = "LineNr" > 333 < / span > < span class = "PreProc" > var< / span > set?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > first, < span class = "Constant" > " set" < / span >
< span id = "L334" class = "LineNr" > 334 < / span > compare set?, < span class = "Constant" > 0< / span > /false
< span id = "L335" class = "LineNr" > 335 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L336" class = "LineNr" > 336 < / span > < span class = "muComment" > #< / span >
< span id = "L337" class = "LineNr" > 337 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " set" < / span >
< span id = "L338" class = "LineNr" > 338 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " evaluating second arg" < / span >
< span id = "L339" class = "LineNr" > 339 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L340" class = "LineNr" > 340 < / span > < span class = "PreProc" > var< / span > first-arg-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L341" class = "LineNr" > 341 < / span > < span class = "Delimiter" > {< / span >
< span id = "L342" class = "LineNr" > 342 < / span > < span class = "PreProc" > var< / span > first-arg/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-arg-ah
< span id = "L343" class = "LineNr" > 343 < / span > < span class = "PreProc" > var< / span > first-arg-type/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get first-arg, < span class = "PreProc" > type< / span >
< span id = "L344" class = "LineNr" > 344 < / span > compare *first-arg-type, < span class = "Constant" > 2< / span > /symbol
< span id = "L345" class = "LineNr" > 345 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L346" class = "LineNr" > 346 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " first arg to set must be a symbol" < / span >
< span id = "L347" class = "LineNr" > 347 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L348" class = "LineNr" > 348 < / span > < span class = "PreProc" > return< / span >
< span id = "L349" class = "LineNr" > 349 < / span > < span class = "Delimiter" > }< / span >
< span id = "L350" class = "LineNr" > 350 < / span > rest-ah < span class = "Special" > < -< / span > get rest, right
< span id = "L351" class = "LineNr" > 351 < / span > rest < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L352" class = "LineNr" > 352 < / span > < span class = "PreProc" > var< / span > second-arg-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L353" class = "LineNr" > 353 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " P" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L354" class = "LineNr" > 354 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > second-arg-ah, _out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L355" class = "LineNr" > 355 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " Q" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L356" class = "LineNr" > 356 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L357" class = "LineNr" > 357 < / span > < span class = "Delimiter" > {< / span >
< span id = "L358" class = "LineNr" > 358 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L359" class = "LineNr" > 359 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L360" class = "LineNr" > 360 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L361" class = "LineNr" > 361 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L362" class = "LineNr" > 362 < / span > < span class = "PreProc" > return< / span >
< span id = "L363" class = "LineNr" > 363 < / span > < span class = "Delimiter" > }< / span >
< span id = "L364" class = "LineNr" > 364 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " mutating binding" < / span >
< span id = "L365" class = "LineNr" > 365 < / span > < span class = "PreProc" > var< / span > first-arg/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-arg-ah
< span id = "L366" class = "LineNr" > 366 < / span > < span class = "PreProc" > var< / span > first-arg-data-ah/< span class = "muRegEax" > eax< / span > : (addr handle stream byte) < span class = "Special" > < -< / span > get first-arg, text-data
< span id = "L367" class = "LineNr" > 367 < / span > < span class = "PreProc" > var< / span > first-arg-data/< span class = "muRegEax" > eax< / span > : (addr stream byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-arg-data-ah
< span id = "L368" class = "LineNr" > 368 < / span > < a href = 'evaluate.mu.html#L1074' > mutate-binding< / a > first-arg-data, _out-ah, env-h, globals, trace
< span id = "L369" class = "LineNr" > 369 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L370" class = "LineNr" > 370 < / span > < span class = "PreProc" > return< / span >
< span id = "L371" class = "LineNr" > 371 < / span > < span class = "Delimiter" > }< / span >
< span id = "L372" class = "LineNr" > 372 < / span > $evaluate:and: < span class = "Delimiter" > {< / span >
< span id = "L373" class = "LineNr" > 373 < / span > < span class = "PreProc" > var< / span > expr/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L374" class = "LineNr" > 374 < / span > < span class = "muComment" > # if its first elem is not " and" , break< / span >
< span id = "L375" class = "LineNr" > 375 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L376" class = "LineNr" > 376 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L377" class = "LineNr" > 377 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
< span id = "L378" class = "LineNr" > 378 < / span > < span class = "PreProc" > var< / span > and?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > first, < span class = "Constant" > " and" < / span >
< span id = "L379" class = "LineNr" > 379 < / span > compare and?, < span class = "Constant" > 0< / span > /false
< span id = "L380" class = "LineNr" > 380 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L381" class = "LineNr" > 381 < / span > < span class = "muComment" > #< / span >
< span id = "L382" class = "LineNr" > 382 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " and" < / span >
< span id = "L383" class = "LineNr" > 383 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " evaluating first arg" < / span >
< span id = "L384" class = "LineNr" > 384 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L385" class = "LineNr" > 385 < / span > < span class = "PreProc" > var< / span > first-arg-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L386" class = "LineNr" > 386 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " R2" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L387" class = "LineNr" > 387 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > first-arg-ah, _out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L388" class = "LineNr" > 388 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " S2" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L389" class = "LineNr" > 389 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L390" class = "LineNr" > 390 < / span > < span class = "Delimiter" > {< / span >
< span id = "L391" class = "LineNr" > 391 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L392" class = "LineNr" > 392 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L393" class = "LineNr" > 393 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L394" class = "LineNr" > 394 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L395" class = "LineNr" > 395 < / span > < span class = "PreProc" > return< / span >
< span id = "L396" class = "LineNr" > 396 < / span > < span class = "Delimiter" > }< / span >
< span id = "L397" class = "LineNr" > 397 < / span > < span class = "muComment" > # if first arg is nil, short-circuit< / span >
< span id = "L398" class = "LineNr" > 398 < / span > < span class = "PreProc" > var< / span > out-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _out-ah
< span id = "L399" class = "LineNr" > 399 < / span > < span class = "PreProc" > var< / span > out/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *out-ah
< span id = "L400" class = "LineNr" > 400 < / span > < span class = "PreProc" > var< / span > < a href = 'print.mu.html#L347' > nil?< / a > /< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > out
< span id = "L401" class = "LineNr" > 401 < / span > compare < a href = 'print.mu.html#L347' > nil?< / a > , < span class = "Constant" > 0< / span > /false
< span id = "L402" class = "LineNr" > 402 < / span > < span class = "Delimiter" > {< / span >
< span id = "L403" class = "LineNr" > 403 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L404" class = "LineNr" > 404 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L405" class = "LineNr" > 405 < / span > < span class = "PreProc" > return< / span >
< span id = "L406" class = "LineNr" > 406 < / span > < span class = "Delimiter" > }< / span >
< span id = "L407" class = "LineNr" > 407 < / span > < span class = "muComment" > #< / span >
< span id = "L408" class = "LineNr" > 408 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " evaluating second arg" < / span >
< span id = "L409" class = "LineNr" > 409 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L410" class = "LineNr" > 410 < / span > rest-ah < span class = "Special" > < -< / span > get rest, right
< span id = "L411" class = "LineNr" > 411 < / span > rest < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L412" class = "LineNr" > 412 < / span > < span class = "PreProc" > var< / span > second-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L413" class = "LineNr" > 413 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " T2" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L414" class = "LineNr" > 414 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > second-ah, _out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L415" class = "LineNr" > 415 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " U2" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L416" class = "LineNr" > 416 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L417" class = "LineNr" > 417 < / span > < span class = "PreProc" > return< / span >
< span id = "L418" class = "LineNr" > 418 < / span > < span class = "Delimiter" > }< / span >
< span id = "L419" class = "LineNr" > 419 < / span > $evaluate:or: < span class = "Delimiter" > {< / span >
< span id = "L420" class = "LineNr" > 420 < / span > < span class = "PreProc" > var< / span > expr/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L421" class = "LineNr" > 421 < / span > < span class = "muComment" > # if its first elem is not " or" , break< / span >
< span id = "L422" class = "LineNr" > 422 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L423" class = "LineNr" > 423 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L424" class = "LineNr" > 424 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
< span id = "L425" class = "LineNr" > 425 < / span > < span class = "PreProc" > var< / span > or?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > first, < span class = "Constant" > " or" < / span >
< span id = "L426" class = "LineNr" > 426 < / span > compare or?, < span class = "Constant" > 0< / span > /false
< span id = "L427" class = "LineNr" > 427 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L428" class = "LineNr" > 428 < / span > < span class = "muComment" > #< / span >
< span id = "L429" class = "LineNr" > 429 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " or" < / span >
< span id = "L430" class = "LineNr" > 430 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " evaluating first arg" < / span >
< span id = "L431" class = "LineNr" > 431 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L432" class = "LineNr" > 432 < / span > < span class = "PreProc" > var< / span > first-arg-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L433" class = "LineNr" > 433 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " R2" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L434" class = "LineNr" > 434 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > first-arg-ah, _out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L435" class = "LineNr" > 435 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " S2" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L436" class = "LineNr" > 436 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L437" class = "LineNr" > 437 < / span > < span class = "Delimiter" > {< / span >
< span id = "L438" class = "LineNr" > 438 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L439" class = "LineNr" > 439 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L440" class = "LineNr" > 440 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L441" class = "LineNr" > 441 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L442" class = "LineNr" > 442 < / span > < span class = "PreProc" > return< / span >
< span id = "L443" class = "LineNr" > 443 < / span > < span class = "Delimiter" > }< / span >
< span id = "L444" class = "LineNr" > 444 < / span > < span class = "muComment" > # if first arg is not nil, short-circuit< / span >
< span id = "L445" class = "LineNr" > 445 < / span > < span class = "PreProc" > var< / span > out-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _out-ah
< span id = "L446" class = "LineNr" > 446 < / span > < span class = "PreProc" > var< / span > out/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *out-ah
< span id = "L447" class = "LineNr" > 447 < / span > < span class = "PreProc" > var< / span > < a href = 'print.mu.html#L347' > nil?< / a > /< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > out
< span id = "L448" class = "LineNr" > 448 < / span > compare < a href = 'print.mu.html#L347' > nil?< / a > , < span class = "Constant" > 0< / span > /false
< span id = "L449" class = "LineNr" > 449 < / span > < span class = "Delimiter" > {< / span >
< span id = "L450" class = "LineNr" > 450 < / span > < span class = "PreProc" > break-if-!=< / span >
2021-06-16 04:50:13 +00:00
< span id = "L451" class = "LineNr" > 451 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L452" class = "LineNr" > 452 < / span > < span class = "PreProc" > return< / span >
< span id = "L453" class = "LineNr" > 453 < / span > < span class = "Delimiter" > }< / span >
2021-06-23 20:19:20 +00:00
< span id = "L454" class = "LineNr" > 454 < / span > < span class = "muComment" > #< / span >
< span id = "L455" class = "LineNr" > 455 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " evaluating second arg" < / span >
< span id = "L456" class = "LineNr" > 456 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L457" class = "LineNr" > 457 < / span > rest-ah < span class = "Special" > < -< / span > get rest, right
< span id = "L458" class = "LineNr" > 458 < / span > rest < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L459" class = "LineNr" > 459 < / span > < span class = "PreProc" > var< / span > second-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L460" class = "LineNr" > 460 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " T2" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L461" class = "LineNr" > 461 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > second-ah, _out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L462" class = "LineNr" > 462 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " U2" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L463" class = "LineNr" > 463 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L464" class = "LineNr" > 464 < / span > < span class = "Delimiter" > {< / span >
< span id = "L465" class = "LineNr" > 465 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L466" class = "LineNr" > 466 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L467" class = "LineNr" > 467 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L468" class = "LineNr" > 468 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L469" class = "LineNr" > 469 < / span > < span class = "PreProc" > return< / span >
< span id = "L470" class = "LineNr" > 470 < / span > < span class = "Delimiter" > }< / span >
2021-06-16 04:50:13 +00:00
< span id = "L471" class = "LineNr" > 471 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L472" class = "LineNr" > 472 < / span > < span class = "PreProc" > return< / span >
< span id = "L473" class = "LineNr" > 473 < / span > < span class = "Delimiter" > }< / span >
2021-06-23 20:19:20 +00:00
< span id = "L474" class = "LineNr" > 474 < / span > $evaluate:if: < span class = "Delimiter" > {< / span >
< span id = "L475" class = "LineNr" > 475 < / span > < span class = "muComment" > # trees starting with " if" are conditionals< / span >
2021-06-16 04:50:13 +00:00
< span id = "L476" class = "LineNr" > 476 < / span > < span class = "PreProc" > var< / span > expr/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
2021-06-23 20:19:20 +00:00
< span id = "L477" class = "LineNr" > 477 < / span > < span class = "muComment" > # if its first elem is not " if" , break< / span >
2021-06-16 04:50:13 +00:00
< span id = "L478" class = "LineNr" > 478 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L479" class = "LineNr" > 479 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L480" class = "LineNr" > 480 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
2021-06-23 20:19:20 +00:00
< span id = "L481" class = "LineNr" > 481 < / span > < span class = "PreProc" > var< / span > if?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > first, < span class = "Constant" > " if" < / span >
< span id = "L482" class = "LineNr" > 482 < / span > compare if?, < span class = "Constant" > 0< / span > /false
< span id = "L483" class = "LineNr" > 483 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L484" class = "LineNr" > 484 < / span > < span class = "muComment" > #< / span >
< span id = "L485" class = "LineNr" > 485 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " if" < / span >
< span id = "L486" class = "LineNr" > 486 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " evaluating first arg" < / span >
< span id = "L487" class = "LineNr" > 487 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L488" class = "LineNr" > 488 < / span > < span class = "PreProc" > var< / span > first-arg-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L489" class = "LineNr" > 489 < / span > < span class = "PreProc" > var< / span > guard-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L490" class = "LineNr" > 490 < / span > < span class = "PreProc" > var< / span > guard-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address guard-h
< span id = "L491" class = "LineNr" > 491 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " R" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L492" class = "LineNr" > 492 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > first-arg-ah, guard-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L493" class = "LineNr" > 493 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " S" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L494" class = "LineNr" > 494 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L495" class = "LineNr" > 495 < / span > < span class = "Delimiter" > {< / span >
< span id = "L496" class = "LineNr" > 496 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L497" class = "LineNr" > 497 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L498" class = "LineNr" > 498 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L499" class = "LineNr" > 499 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L500" class = "LineNr" > 500 < / span > < span class = "PreProc" > return< / span >
< span id = "L501" class = "LineNr" > 501 < / span > < span class = "Delimiter" > }< / span >
< span id = "L502" class = "LineNr" > 502 < / span > rest-ah < span class = "Special" > < -< / span > get rest, right
< span id = "L503" class = "LineNr" > 503 < / span > rest < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L504" class = "LineNr" > 504 < / span > < span class = "PreProc" > var< / span > branch-ah/< span class = "muRegEdi" > edi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L505" class = "LineNr" > 505 < / span > < span class = "PreProc" > var< / span > guard-a/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *guard-ah
< span id = "L506" class = "LineNr" > 506 < / span > < span class = "PreProc" > var< / span > skip-to-third-arg?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > guard-a
< span id = "L507" class = "LineNr" > 507 < / span > compare skip-to-third-arg?, < span class = "Constant" > 0< / span > /false
< span id = "L508" class = "LineNr" > 508 < / span > < span class = "Delimiter" > {< / span >
< span id = "L509" class = "LineNr" > 509 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L510" class = "LineNr" > 510 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " skipping to third arg" < / span >
< span id = "L511" class = "LineNr" > 511 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L512" class = "LineNr" > 512 < / span > rest-ah < span class = "Special" > < -< / span > get rest, right
< span id = "L513" class = "LineNr" > 513 < / span > rest < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L514" class = "LineNr" > 514 < / span > branch-ah < span class = "Special" > < -< / span > get rest, left
< span id = "L515" class = "LineNr" > 515 < / span > < span class = "Delimiter" > }< / span >
< span id = "L516" class = "LineNr" > 516 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " T" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L517" class = "LineNr" > 517 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > branch-ah, _out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L518" class = "LineNr" > 518 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " U" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L519" class = "LineNr" > 519 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L520" class = "LineNr" > 520 < / span > < span class = "PreProc" > return< / span >
< span id = "L521" class = "LineNr" > 521 < / span > < span class = "Delimiter" > }< / span >
< span id = "L522" class = "LineNr" > 522 < / span > $evaluate:while: < span class = "Delimiter" > {< / span >
< span id = "L523" class = "LineNr" > 523 < / span > < span class = "muComment" > # trees starting with " while" are loops< / span >
< span id = "L524" class = "LineNr" > 524 < / span > < span class = "PreProc" > var< / span > expr/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L525" class = "LineNr" > 525 < / span > < span class = "muComment" > # if its first elem is not " while" , break< / span >
< span id = "L526" class = "LineNr" > 526 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L527" class = "LineNr" > 527 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L528" class = "LineNr" > 528 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
< span id = "L529" class = "LineNr" > 529 < / span > < span class = "PreProc" > var< / span > first-type/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get first, < span class = "PreProc" > type< / span >
< span id = "L530" class = "LineNr" > 530 < / span > compare *first-type, < span class = "Constant" > 2< / span > /symbol
< span id = "L531" class = "LineNr" > 531 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L532" class = "LineNr" > 532 < / span > < span class = "PreProc" > var< / span > sym-data-ah/< span class = "muRegEax" > eax< / span > : (addr handle stream byte) < span class = "Special" > < -< / span > get first, text-data
< span id = "L533" class = "LineNr" > 533 < / span > < span class = "PreProc" > var< / span > sym-data/< span class = "muRegEax" > eax< / span > : (addr stream byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *sym-data-ah
< span id = "L534" class = "LineNr" > 534 < / span > < span class = "PreProc" > var< / span > while?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = '../109stream-equal.subx.html#L9' > stream-data-equal?< / a > sym-data, < span class = "Constant" > " while" < / span >
< span id = "L535" class = "LineNr" > 535 < / span > compare while?, < span class = "Constant" > 0< / span > /false
< span id = "L536" class = "LineNr" > 536 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L537" class = "LineNr" > 537 < / span > < span class = "muComment" > #< / span >
< span id = "L538" class = "LineNr" > 538 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " while" < / span >
< span id = "L539" class = "LineNr" > 539 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L540" class = "LineNr" > 540 < / span > < span class = "PreProc" > var< / span > first-arg-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L541" class = "LineNr" > 541 < / span > rest-ah < span class = "Special" > < -< / span > get rest, right
< span id = "L542" class = "LineNr" > 542 < / span > < span class = "PreProc" > var< / span > guard-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L543" class = "LineNr" > 543 < / span > < span class = "PreProc" > var< / span > guard-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address guard-h
< span id = "L544" class = "LineNr" > 544 < / span > $evaluate:while:loop-execution: < span class = "Delimiter" > {< / span >
< span id = "L545" class = "LineNr" > 545 < / span > < span class = "Delimiter" > {< / span >
< span id = "L546" class = "LineNr" > 546 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L547" class = "LineNr" > 547 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L548" class = "LineNr" > 548 < / span > < span class = "PreProc" > break-if-!=< / span > $evaluate:while:loop-execution
< span id = "L549" class = "LineNr" > 549 < / span > < span class = "Delimiter" > }< / span >
< span id = "L550" class = "LineNr" > 550 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " loop termination check" < / span >
< span id = "L551" class = "LineNr" > 551 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " V" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L552" class = "LineNr" > 552 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > first-arg-ah, guard-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L553" class = "LineNr" > 553 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " W" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L554" class = "LineNr" > 554 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L555" class = "LineNr" > 555 < / span > < span class = "Delimiter" > {< / span >
< span id = "L556" class = "LineNr" > 556 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L557" class = "LineNr" > 557 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L558" class = "LineNr" > 558 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L559" class = "LineNr" > 559 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L560" class = "LineNr" > 560 < / span > < span class = "PreProc" > return< / span >
< span id = "L561" class = "LineNr" > 561 < / span > < span class = "Delimiter" > }< / span >
< span id = "L562" class = "LineNr" > 562 < / span > < span class = "PreProc" > var< / span > guard-a/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *guard-ah
< span id = "L563" class = "LineNr" > 563 < / span > < span class = "PreProc" > var< / span > done?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > guard-a
< span id = "L564" class = "LineNr" > 564 < / span > compare done?, < span class = "Constant" > 0< / span > /false
< span id = "L565" class = "LineNr" > 565 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L566" class = "LineNr" > 566 < / span > < a href = 'evaluate.mu.html#L729' > evaluate-exprs< / a > rest-ah, _out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L567" class = "LineNr" > 567 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L568" class = "LineNr" > 568 < / span > < span class = "Delimiter" > {< / span >
< span id = "L569" class = "LineNr" > 569 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L570" class = "LineNr" > 570 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L571" class = "LineNr" > 571 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L572" class = "LineNr" > 572 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L573" class = "LineNr" > 573 < / span > < span class = "PreProc" > return< / span >
< span id = "L574" class = "LineNr" > 574 < / span > < span class = "Delimiter" > }< / span >
< span id = "L575" class = "LineNr" > 575 < / span > < span class = "PreProc" > loop< / span >
< span id = "L576" class = "LineNr" > 576 < / span > < span class = "Delimiter" > }< / span >
< span id = "L577" class = "LineNr" > 577 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " loop terminated" < / span >
< span id = "L578" class = "LineNr" > 578 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L579" class = "LineNr" > 579 < / span > < span class = "PreProc" > return< / span >
2021-06-06 05:16:51 +00:00
< span id = "L580" class = "LineNr" > 580 < / span > < span class = "Delimiter" > }< / span >
2021-06-23 20:19:20 +00:00
< span id = "L581" class = "Folded" > 581 < / span > < span class = "Folded" > +-- 15 lines: # trace " evaluate function call elements in " in -----------------------------------------------------------------------------------------------------------------------------------------------------< / span >
< span id = "L596" class = "LineNr" > 596 < / span > < a href = 'trace.mu.html#L239' > trace-lower< / a > trace
< span id = "L597" class = "LineNr" > 597 < / span > < span class = "PreProc" > var< / span > evaluated-list-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L598" class = "LineNr" > 598 < / span > < span class = "PreProc" > var< / span > evaluated-list-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address evaluated-list-storage
< span id = "L599" class = "LineNr" > 599 < / span > < span class = "PreProc" > var< / span > curr-out-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy evaluated-list-ah
< span id = "L600" class = "LineNr" > 600 < / span > < span class = "PreProc" > var< / span > curr/< span class = "muRegEcx" > ecx< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy in
< span id = "L601" class = "LineNr" > 601 < / span > $evaluate-list:< span class = "PreProc" > loop< / span > : < span class = "Delimiter" > {< / span >
< span id = "L602" class = "LineNr" > 602 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > curr-out-ah
< span id = "L603" class = "LineNr" > 603 < / span > < span class = "PreProc" > var< / span > < a href = 'print.mu.html#L347' > nil?< / a > /< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > curr
< span id = "L604" class = "LineNr" > 604 < / span > compare < a href = 'print.mu.html#L347' > nil?< / a > , < span class = "Constant" > 0< / span > /false
< span id = "L605" class = "LineNr" > 605 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L606" class = "LineNr" > 606 < / span > < span class = "muComment" > # eval left< / span >
< span id = "L607" class = "LineNr" > 607 < / span > < span class = "PreProc" > var< / span > curr-out/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *curr-out-ah
< span id = "L608" class = "LineNr" > 608 < / span > < span class = "PreProc" > var< / span > left-out-ah/< span class = "muRegEdi" > edi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get curr-out, left
< span id = "L609" class = "LineNr" > 609 < / span > < span class = "PreProc" > var< / span > left-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get curr, left
< span id = "L610" class = "LineNr" > 610 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " A" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L611" class = "LineNr" > 611 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > left-ah, left-out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L612" class = "LineNr" > 612 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " B" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L613" class = "LineNr" > 613 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L614" class = "LineNr" > 614 < / span > < span class = "Delimiter" > {< / span >
< span id = "L615" class = "LineNr" > 615 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L616" class = "LineNr" > 616 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L617" class = "LineNr" > 617 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L618" class = "LineNr" > 618 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L619" class = "LineNr" > 619 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L620" class = "LineNr" > 620 < / span > < span class = "PreProc" > return< / span >
< span id = "L621" class = "LineNr" > 621 < / span > < span class = "Delimiter" > }< / span >
< span id = "L622" class = "LineNr" > 622 < / span > < span class = "muComment" > #< / span >
< span id = "L623" class = "LineNr" > 623 < / span > curr-out-ah < span class = "Special" > < -< / span > get curr-out, right
< span id = "L624" class = "LineNr" > 624 < / span > < span class = "PreProc" > var< / span > right-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get curr, right
< span id = "L625" class = "LineNr" > 625 < / span > < span class = "PreProc" > var< / span > right/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *right-ah
< span id = "L626" class = "LineNr" > 626 < / span > curr < span class = "Special" > < -< / span > copy right
< span id = "L627" class = "LineNr" > 627 < / span > < span class = "PreProc" > loop< / span >
< span id = "L628" class = "LineNr" > 628 < / span > < span class = "Delimiter" > }< / span >
< span id = "L629" class = "LineNr" > 629 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L630" class = "LineNr" > 630 < / span > < span class = "PreProc" > var< / span > evaluated-list/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *evaluated-list-ah
< span id = "L631" class = "LineNr" > 631 < / span > < span class = "PreProc" > var< / span > function-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get evaluated-list, left
< span id = "L632" class = "LineNr" > 632 < / span > < span class = "PreProc" > var< / span > args-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get evaluated-list, right
< span id = "L633" class = "LineNr" > 633 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " C" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L634" class = "LineNr" > 634 < / span > < a href = 'evaluate.mu.html#L655' > apply< / a > function-ah, args-ah, _out-ah, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L635" class = "LineNr" > 635 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " Y" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L636" class = "LineNr" > 636 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L637" class = "Folded" > 637 < / span > < span class = "Folded" > +-- 15 lines: # trace " => " _out-ah --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------< / span >
< span id = "L652" class = "LineNr" > 652 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " Z" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L653" class = "LineNr" > 653 < / span > < span class = "Delimiter" > }< / span >
< span id = "L654" class = "LineNr" > 654 < / span >
< span id = "L655" class = "LineNr" > 655 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L655' > apply< / a > < / span > _f-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), args-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), out: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), globals: (addr < a href = 'global.mu.html#L1' > global-table< / a > ), trace: (addr trace), inner-screen-var: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), inner-keyboard-var: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), definitions-created: (addr stream int), call-number: (addr int) < span class = "Delimiter" > {< / span >
< span id = "L656" class = "LineNr" > 656 < / span > < span class = "PreProc" > var< / span > f-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _f-ah
< span id = "L657" class = "LineNr" > 657 < / span > < span class = "PreProc" > var< / span > _f/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *f-ah
< span id = "L658" class = "LineNr" > 658 < / span > < span class = "PreProc" > var< / span > f/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _f
< span id = "L659" class = "LineNr" > 659 < / span > < span class = "muComment" > # call primitive functions< / span >
< span id = "L660" class = "LineNr" > 660 < / span > < span class = "Delimiter" > {< / span >
< span id = "L661" class = "LineNr" > 661 < / span > < span class = "PreProc" > var< / span > f-type/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get f, < span class = "PreProc" > type< / span >
< span id = "L662" class = "LineNr" > 662 < / span > compare *f-type, < span class = "Constant" > 4< / span > /primitive-function
< span id = "L663" class = "LineNr" > 663 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L664" class = "LineNr" > 664 < / span > < a href = 'primitives.mu.html#L153' > apply-primitive< / a > f, args-ah, out, globals, trace
< span id = "L665" class = "LineNr" > 665 < / span > < span class = "PreProc" > return< / span >
< span id = "L666" class = "LineNr" > 666 < / span > < span class = "Delimiter" > }< / span >
< span id = "L667" class = "LineNr" > 667 < / span > < span class = "muComment" > # if it's not a primitive function it must be an anonymous function< / span >
< span id = "L668" class = "Folded" > 668 < / span > < span class = "Folded" > +-- 19 lines: # trace " apply anonymous function " f " in environment " env -----------------------------------------------------------------------------------------------------------------------------------------< / span >
< span id = "L687" class = "LineNr" > 687 < / span > < a href = 'trace.mu.html#L239' > trace-lower< / a > trace
< span id = "L688" class = "LineNr" > 688 < / span > < span class = "Delimiter" > {< / span >
< span id = "L689" class = "LineNr" > 689 < / span > < span class = "PreProc" > var< / span > f-type/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get f, < span class = "PreProc" > type< / span >
< span id = "L690" class = "LineNr" > 690 < / span > compare *f-type, < span class = "Constant" > 0< / span > /pair
< span id = "L691" class = "LineNr" > 691 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L692" class = "LineNr" > 692 < / span > < span class = "PreProc" > var< / span > first-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get f, left
< span id = "L693" class = "LineNr" > 693 < / span > < span class = "PreProc" > var< / span > first/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *first-ah
< span id = "L694" class = "LineNr" > 694 < / span > < span class = "PreProc" > var< / span > < a href = 'evaluate.mu.html#L1429' > litfn?< / a > /< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'evaluate.mu.html#L1429' > litfn?< / a > first
< span id = "L695" class = "LineNr" > 695 < / span > compare < a href = 'evaluate.mu.html#L1429' > litfn?< / a > , < span class = "Constant" > 0< / span > /false
< span id = "L696" class = "LineNr" > 696 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L697" class = "LineNr" > 697 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get f, right
< span id = "L698" class = "LineNr" > 698 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L699" class = "LineNr" > 699 < / span > < span class = "PreProc" > var< / span > callee-env-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L700" class = "LineNr" > 700 < / span > rest-ah < span class = "Special" > < -< / span > get rest, right
< span id = "L701" class = "LineNr" > 701 < / span > rest < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L702" class = "LineNr" > 702 < / span > < span class = "PreProc" > var< / span > params-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L703" class = "LineNr" > 703 < / span > < span class = "PreProc" > var< / span > body-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, right
< span id = "L704" class = "LineNr" > 704 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " D" < / span > , < span class = "Constant" > 7< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L705" class = "LineNr" > 705 < / span > < a href = 'evaluate.mu.html#L713' > apply-function< / a > params-ah, args-ah, body-ah, out, *callee-env-ah, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L706" class = "LineNr" > 706 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " Y" < / span > , < span class = "Constant" > 7< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L707" class = "LineNr" > 707 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L708" class = "LineNr" > 708 < / span > < span class = "PreProc" > return< / span >
2021-06-16 04:50:13 +00:00
< span id = "L709" class = "LineNr" > 709 < / span > < span class = "Delimiter" > }< / span >
2021-06-23 20:19:20 +00:00
< span id = "L710" class = "LineNr" > 710 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " unknown function" < / span >
2021-06-16 04:50:13 +00:00
< span id = "L711" class = "LineNr" > 711 < / span > < span class = "Delimiter" > }< / span >
< span id = "L712" class = "LineNr" > 712 < / span >
2021-06-23 20:19:20 +00:00
< span id = "L713" class = "LineNr" > 713 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L713' > apply-function< / a > < / span > params-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), args-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), body-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), out: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), env-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > ), globals: (addr < a href = 'global.mu.html#L1' > global-table< / a > ), trace: (addr trace), inner-screen-var: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), inner-keyboard-var: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), definitions-created: (addr stream int), call-number: (addr int) < span class = "Delimiter" > {< / span >
< span id = "L714" class = "LineNr" > 714 < / span > < span class = "muComment" > # push bindings for params to env< / span >
< span id = "L715" class = "LineNr" > 715 < / span > < span class = "PreProc" > var< / span > new-env-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L716" class = "LineNr" > 716 < / span > < span class = "PreProc" > var< / span > new-env-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address new-env-h
< span id = "L717" class = "LineNr" > 717 < / span > < a href = 'evaluate.mu.html#L772' > push-bindings< / a > params-ah, args-ah, env-h, new-env-ah, trace
< span id = "L718" class = "LineNr" > 718 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L719" class = "LineNr" > 719 < / span > < span class = "Delimiter" > {< / span >
< span id = "L720" class = "LineNr" > 720 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L721" class = "LineNr" > 721 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L722" class = "LineNr" > 722 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L723" class = "LineNr" > 723 < / span > < span class = "PreProc" > return< / span >
< span id = "L724" class = "LineNr" > 724 < / span > < span class = "Delimiter" > }< / span >
< span id = "L725" class = "LineNr" > 725 < / span > < span class = "muComment" > #< / span >
< span id = "L726" class = "LineNr" > 726 < / span > < a href = 'evaluate.mu.html#L729' > evaluate-exprs< / a > body-ah, out, new-env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L727" class = "LineNr" > 727 < / span > < span class = "Delimiter" > }< / span >
< span id = "L728" class = "LineNr" > 728 < / span >
< span id = "L729" class = "LineNr" > 729 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L729' > evaluate-exprs< / a > < / span > _exprs-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), out: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), env-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > ), globals: (addr < a href = 'global.mu.html#L1' > global-table< / a > ), trace: (addr trace), inner-screen-var: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), inner-keyboard-var: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), definitions-created: (addr stream int), call-number: (addr int) < span class = "Delimiter" > {< / span >
< span id = "L730" class = "LineNr" > 730 < / span > < span class = "muComment" > # eval all exprs, writing result to `out` each time< / span >
< span id = "L731" class = "LineNr" > 731 < / span > < span class = "PreProc" > var< / span > exprs-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _exprs-ah
< span id = "L732" class = "LineNr" > 732 < / span > $evaluate-exprs:< span class = "PreProc" > loop< / span > : < span class = "Delimiter" > {< / span >
< span id = "L733" class = "LineNr" > 733 < / span > < span class = "PreProc" > var< / span > exprs/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *exprs-ah
< span id = "L734" class = "LineNr" > 734 < / span > < span class = "muComment" > # stop when exprs is nil< / span >
< span id = "L735" class = "LineNr" > 735 < / span > < span class = "Delimiter" > {< / span >
< span id = "L736" class = "LineNr" > 736 < / span > < span class = "PreProc" > var< / span > exprs-nil?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > exprs
< span id = "L737" class = "LineNr" > 737 < / span > compare exprs-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L738" class = "LineNr" > 738 < / span > < span class = "PreProc" > break-if-!=< / span > $evaluate-exprs:< span class = "PreProc" > loop< / span >
< span id = "L739" class = "LineNr" > 739 < / span > < span class = "Delimiter" > }< / span >
< span id = "L740" class = "LineNr" > 740 < / span > < span class = "muComment" > # evaluate each expression, writing result to `out`< / span >
< span id = "L741" class = "LineNr" > 741 < / span > < span class = "Delimiter" > {< / span >
< span id = "L742" class = "LineNr" > 742 < / span > < span class = "PreProc" > var< / span > curr-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get exprs, left
< span id = "L743" class = "LineNr" > 743 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " E" < / span > , < span class = "Constant" > 7< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L744" class = "LineNr" > 744 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > curr-ah, out, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L745" class = "LineNr" > 745 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " X" < / span > , < span class = "Constant" > 7< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L746" class = "LineNr" > 746 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L747" class = "LineNr" > 747 < / span > < span class = "Delimiter" > {< / span >
< span id = "L748" class = "LineNr" > 748 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L749" class = "LineNr" > 749 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L750" class = "LineNr" > 750 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L751" class = "LineNr" > 751 < / span > < span class = "PreProc" > return< / span >
< span id = "L752" class = "LineNr" > 752 < / span > < span class = "Delimiter" > }< / span >
< span id = "L753" class = "LineNr" > 753 < / span > < span class = "Delimiter" > }< / span >
< span id = "L754" class = "LineNr" > 754 < / span > < span class = "muComment" > #< / span >
< span id = "L755" class = "LineNr" > 755 < / span > exprs-ah < span class = "Special" > < -< / span > get exprs, right
< span id = "L756" class = "LineNr" > 756 < / span > < span class = "PreProc" > loop< / span >
< span id = "L757" class = "LineNr" > 757 < / span > < span class = "Delimiter" > }< / span >
< span id = "L758" class = "LineNr" > 758 < / span > < span class = "muComment" > # `out` contains result of evaluating final expression< / span >
< span id = "L759" class = "LineNr" > 759 < / span > < span class = "Delimiter" > }< / span >
< span id = "L760" class = "LineNr" > 760 < / span >
< span id = "L761" class = "LineNr" > 761 < / span > < span class = "muComment" > # Bind params to corresponding args and add the bindings to old-env. Return< / span >
< span id = "L762" class = "LineNr" > 762 < / span > < span class = "muComment" > # the result in env-ah.< / span >
< span id = "L763" class = "LineNr" > 763 < / span > < span class = "muComment" > #< / span >
< span id = "L764" class = "LineNr" > 764 < / span > < span class = "muComment" > # We never modify old-env, but we point to it. This way other parts of the< / span >
< span id = "L765" class = "LineNr" > 765 < / span > < span class = "muComment" > # interpreter can continue using old-env, and everything works harmoniously< / span >
< span id = "L766" class = "LineNr" > 766 < / span > < span class = "muComment" > # even though no cells are copied around.< / span >
< span id = "L767" class = "LineNr" > 767 < / span > < span class = "muComment" > #< / span >
< span id = "L768" class = "LineNr" > 768 < / span > < span class = "muComment" > # env should always be a DAG (ignoring internals of values). It doesn't have< / span >
< span id = "L769" class = "LineNr" > 769 < / span > < span class = "muComment" > # to be a tree (some values may be shared), but there are also no cycles.< / span >
< span id = "L770" class = "LineNr" > 770 < / span > < span class = "muComment" > #< / span >
< span id = "L771" class = "LineNr" > 771 < / span > < span class = "muComment" > # Learn more: < a href = "https://en.wikipedia.org/wiki/Persistent_data_structure" > https://en.wikipedia.org/wiki/Persistent_data_structure< / a > < / span >
< span id = "L772" class = "LineNr" > 772 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L772' > push-bindings< / a > < / span > _params-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), _args-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), old-env-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > ), env-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), trace: (addr trace) < span class = "Delimiter" > {< / span >
< span id = "L773" class = "LineNr" > 773 < / span > < span class = "PreProc" > var< / span > params-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _params-ah
< span id = "L774" class = "LineNr" > 774 < / span > < span class = "PreProc" > var< / span > args-ah/< span class = "muRegEbx" > ebx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _args-ah
< span id = "L775" class = "LineNr" > 775 < / span > < span class = "PreProc" > var< / span > _params/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *params-ah
< span id = "L776" class = "LineNr" > 776 < / span > < span class = "PreProc" > var< / span > params/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _params
2021-06-16 04:50:13 +00:00
< span id = "L777" class = "LineNr" > 777 < / span > < span class = "Delimiter" > {< / span >
2021-06-23 20:19:20 +00:00
< span id = "L778" class = "LineNr" > 778 < / span > < span class = "PreProc" > var< / span > params-nil?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > params
< span id = "L779" class = "LineNr" > 779 < / span > compare params-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L780" class = "LineNr" > 780 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L781" class = "LineNr" > 781 < / span > < span class = "muComment" > # nil is a literal< / span >
< span id = "L782" class = "LineNr" > 782 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " done with push-bindings" < / span >
< span id = "L783" class = "LineNr" > 783 < / span > < a href = '../120allocate.subx.html#L479' > copy-handle< / a > old-env-h, env-ah
< span id = "L784" class = "LineNr" > 784 < / span > < span class = "PreProc" > return< / span >
< span id = "L785" class = "LineNr" > 785 < / span > < span class = "Delimiter" > }< / span >
< span id = "L786" class = "LineNr" > 786 < / span > < span class = "muComment" > # Params can only be symbols or pairs. Args can be anything.< / span >
< span id = "L787" class = "Folded" > 787 < / span > < span class = "Folded" > +-- 22 lines: # trace " pushing bindings from " params " to " args --------------------------------------------------------------------------------------------------------------------------------------------------< / span >
< span id = "L809" class = "LineNr" > 809 < / span > < a href = 'trace.mu.html#L239' > trace-lower< / a > trace
< span id = "L810" class = "LineNr" > 810 < / span > < span class = "PreProc" > var< / span > params-type/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get params, < span class = "PreProc" > type< / span >
< span id = "L811" class = "LineNr" > 811 < / span > compare *params-type, < span class = "Constant" > 2< / span > /symbol
< span id = "L812" class = "LineNr" > 812 < / span > < span class = "Delimiter" > {< / span >
< span id = "L813" class = "LineNr" > 813 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L814" class = "LineNr" > 814 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " symbol; binding to all remaining args" < / span >
< span id = "L815" class = "LineNr" > 815 < / span > < span class = "muComment" > # create a new binding< / span >
< span id = "L816" class = "LineNr" > 816 < / span > < span class = "PreProc" > var< / span > new-binding-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L817" class = "LineNr" > 817 < / span > < span class = "PreProc" > var< / span > new-binding-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address new-binding-storage
< span id = "L818" class = "LineNr" > 818 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > new-binding-ah, *params-ah, *args-ah
< span id = "L819" class = "LineNr" > 819 < / span > < span class = "muComment" > # push it to env< / span >
< span id = "L820" class = "LineNr" > 820 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > env-ah, *new-binding-ah, old-env-h
< span id = "L821" class = "LineNr" > 821 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L822" class = "LineNr" > 822 < / span > < span class = "PreProc" > return< / span >
< span id = "L823" class = "LineNr" > 823 < / span > < span class = "Delimiter" > }< / span >
< span id = "L824" class = "LineNr" > 824 < / span > compare *params-type, < span class = "Constant" > 0< / span > /pair
< span id = "L825" class = "LineNr" > 825 < / span > < span class = "Delimiter" > {< / span >
< span id = "L826" class = "LineNr" > 826 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L827" class = "LineNr" > 827 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " cannot bind a non-symbol" < / span >
< span id = "L828" class = "LineNr" > 828 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L829" class = "LineNr" > 829 < / span > < span class = "PreProc" > return< / span >
< span id = "L830" class = "LineNr" > 830 < / span > < span class = "Delimiter" > }< / span >
< span id = "L831" class = "LineNr" > 831 < / span > < span class = "PreProc" > var< / span > _args/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *args-ah
< span id = "L832" class = "LineNr" > 832 < / span > < span class = "PreProc" > var< / span > args/< span class = "muRegEdi" > edi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _args
< span id = "L833" class = "LineNr" > 833 < / span > < span class = "muComment" > # params is now a pair, so args must be also< / span >
< span id = "L834" class = "LineNr" > 834 < / span > < span class = "Delimiter" > {< / span >
< span id = "L835" class = "LineNr" > 835 < / span > < span class = "PreProc" > var< / span > args-nil?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > args
< span id = "L836" class = "LineNr" > 836 < / span > compare args-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L837" class = "LineNr" > 837 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L838" class = "LineNr" > 838 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " not enough args to bind" < / span >
< span id = "L839" class = "LineNr" > 839 < / span > < span class = "PreProc" > return< / span >
< span id = "L840" class = "LineNr" > 840 < / span > < span class = "Delimiter" > }< / span >
< span id = "L841" class = "LineNr" > 841 < / span > < span class = "PreProc" > var< / span > args-type/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get args, < span class = "PreProc" > type< / span >
< span id = "L842" class = "LineNr" > 842 < / span > compare *args-type, < span class = "Constant" > 0< / span > /pair
< span id = "L843" class = "LineNr" > 843 < / span > < span class = "Delimiter" > {< / span >
< span id = "L844" class = "LineNr" > 844 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L845" class = "LineNr" > 845 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " args not in a proper list" < / span >
< span id = "L846" class = "LineNr" > 846 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L847" class = "LineNr" > 847 < / span > < span class = "PreProc" > return< / span >
< span id = "L848" class = "LineNr" > 848 < / span > < span class = "Delimiter" > }< / span >
< span id = "L849" class = "LineNr" > 849 < / span > < span class = "PreProc" > var< / span > intermediate-env-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L850" class = "LineNr" > 850 < / span > < span class = "PreProc" > var< / span > intermediate-env-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address intermediate-env-storage
< span id = "L851" class = "LineNr" > 851 < / span > < span class = "PreProc" > var< / span > first-param-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get params, left
< span id = "L852" class = "LineNr" > 852 < / span > < span class = "PreProc" > var< / span > first-arg-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get args, left
< span id = "L853" class = "LineNr" > 853 < / span > < a href = 'evaluate.mu.html#L772' > push-bindings< / a > first-param-ah, first-arg-ah, old-env-h, intermediate-env-ah, trace
< span id = "L854" class = "LineNr" > 854 < / span > < span class = "muComment" > # errors? skip< / span >
2021-06-16 04:50:13 +00:00
< span id = "L855" class = "LineNr" > 855 < / span > < span class = "Delimiter" > {< / span >
2021-06-23 20:19:20 +00:00
< span id = "L856" class = "LineNr" > 856 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L857" class = "LineNr" > 857 < / span > compare error?, < span class = "Constant" > 0< / span > /false
2021-06-16 04:50:13 +00:00
< span id = "L858" class = "LineNr" > 858 < / span > < span class = "PreProc" > break-if-=< / span >
2021-06-23 20:19:20 +00:00
< span id = "L859" class = "LineNr" > 859 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L860" class = "LineNr" > 860 < / span > < span class = "PreProc" > return< / span >
< span id = "L861" class = "LineNr" > 861 < / span > < span class = "Delimiter" > }< / span >
< span id = "L862" class = "LineNr" > 862 < / span > < span class = "PreProc" > var< / span > remaining-params-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get params, right
< span id = "L863" class = "LineNr" > 863 < / span > < span class = "PreProc" > var< / span > remaining-args-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get args, right
< span id = "L864" class = "LineNr" > 864 < / span > < a href = 'evaluate.mu.html#L772' > push-bindings< / a > remaining-params-ah, remaining-args-ah, *intermediate-env-ah, env-ah, trace
< span id = "L865" class = "LineNr" > 865 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L866" class = "LineNr" > 866 < / span > < span class = "Delimiter" > }< / span >
< span id = "L867" class = "LineNr" > 867 < / span >
< span id = "L868" class = "LineNr" > 868 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L868' > lookup-symbol< / a > < / span > sym: (addr < a href = 'cell.mu.html#L1' > cell< / a > ), out: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), env-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > ), globals: (addr < a href = 'global.mu.html#L1' > global-table< / a > ), trace: (addr trace), inner-screen-var: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), inner-keyboard-var: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Delimiter" > {< / span >
< span id = "L869" class = "LineNr" > 869 < / span > < span class = "muComment" > # trace sym< / span >
< span id = "L870" class = "LineNr" > 870 < / span > < span class = "Delimiter" > {< / span >
< span id = "L871" class = "LineNr" > 871 < / span > < span class = "PreProc" > var< / span > < a href = 'trace.mu.html#L123' > should-trace?< / a > /< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L123' > should-trace?< / a > trace
< span id = "L872" class = "LineNr" > 872 < / span > compare < a href = 'trace.mu.html#L123' > should-trace?< / a > , < span class = "Constant" > 0< / span > /false
< span id = "L873" class = "LineNr" > 873 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L874" class = "LineNr" > 874 < / span > < span class = "PreProc" > var< / span > stream-storage: (stream byte < span class = "Constant" > 0x800< / span > ) < span class = "muComment" > # pessimistically sized just for the large alist loaded from disk in `main`< / span >
< span id = "L875" class = "LineNr" > 875 < / span > < span class = "PreProc" > var< / span > stream/< span class = "muRegEcx" > ecx< / span > : (addr stream byte) < span class = "Special" > < -< / span > address stream-storage
< span id = "L876" class = "LineNr" > 876 < / span > < a href = '../108write.subx.html#L11' > write< / a > stream, < span class = "Constant" > " look up " < / span >
< span id = "L877" class = "LineNr" > 877 < / span > < span class = "PreProc" > var< / span > sym2/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy sym
< span id = "L878" class = "LineNr" > 878 < / span > < span class = "PreProc" > var< / span > sym-data-ah/< span class = "muRegEax" > eax< / span > : (addr handle stream byte) < span class = "Special" > < -< / span > get sym2, text-data
< span id = "L879" class = "LineNr" > 879 < / span > < span class = "PreProc" > var< / span > sym-data/< span class = "muRegEax" > eax< / span > : (addr stream byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *sym-data-ah
< span id = "L880" class = "LineNr" > 880 < / span > < a href = '../106stream.subx.html#L59' > rewind-stream< / a > sym-data
< span id = "L881" class = "LineNr" > 881 < / span > < a href = '../113write-stream.subx.html#L8' > write-stream< / a > stream, sym-data
< span id = "L882" class = "LineNr" > 882 < / span > < a href = '../108write.subx.html#L11' > write< / a > stream, < span class = "Constant" > " in " < / span >
< span id = "L883" class = "LineNr" > 883 < / span > < span class = "PreProc" > var< / span > env-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address env-h
< span id = "L884" class = "LineNr" > 884 < / span > < span class = "PreProc" > var< / span > nested-trace-storage: trace
< span id = "L885" class = "LineNr" > 885 < / span > < span class = "PreProc" > var< / span > nested-trace/< span class = "muRegEdi" > edi< / span > : (addr trace) < span class = "Special" > < -< / span > address nested-trace-storage
< span id = "L886" class = "LineNr" > 886 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > nested-trace, < span class = "Constant" > 1< / span > /only-errors, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L887" class = "LineNr" > 887 < / span > < a href = 'print.mu.html#L7' > print-cell< / a > env-ah, stream, nested-trace
< span id = "L888" class = "LineNr" > 888 < / span > trace trace, < span class = "Constant" > " eval" < / span > , stream
< span id = "L889" class = "LineNr" > 889 < / span > < span class = "Delimiter" > }< / span >
< span id = "L890" class = "LineNr" > 890 < / span > < a href = 'trace.mu.html#L239' > trace-lower< / a > trace
< span id = "L891" class = "LineNr" > 891 < / span > < span class = "PreProc" > var< / span > _env/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > env-h
< span id = "L892" class = "LineNr" > 892 < / span > < span class = "PreProc" > var< / span > env/< span class = "muRegEbx" > ebx< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _env
< span id = "L893" class = "LineNr" > 893 < / span > < span class = "muComment" > # if env is not a list, error< / span >
< span id = "L894" class = "LineNr" > 894 < / span > < span class = "Delimiter" > {< / span >
< span id = "L895" class = "LineNr" > 895 < / span > < span class = "PreProc" > var< / span > env-type/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get env, < span class = "PreProc" > type< / span >
< span id = "L896" class = "LineNr" > 896 < / span > compare *env-type, < span class = "Constant" > 0< / span > /pair
< span id = "L897" class = "LineNr" > 897 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L898" class = "LineNr" > 898 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " eval found a non-list environment" < / span >
< span id = "L899" class = "LineNr" > 899 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L900" class = "LineNr" > 900 < / span > < span class = "PreProc" > return< / span >
< span id = "L901" class = "LineNr" > 901 < / span > < span class = "Delimiter" > }< / span >
< span id = "L902" class = "LineNr" > 902 < / span > < span class = "muComment" > # if env is nil, look up in globals< / span >
< span id = "L903" class = "LineNr" > 903 < / span > < span class = "Delimiter" > {< / span >
< span id = "L904" class = "LineNr" > 904 < / span > < span class = "PreProc" > var< / span > env-nil?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > env
< span id = "L905" class = "LineNr" > 905 < / span > compare env-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L906" class = "LineNr" > 906 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L907" class = "LineNr" > 907 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " b" < / span > , < span class = "Constant" > 7< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L908" class = "LineNr" > 908 < / span > < a href = 'global.mu.html#L329' > lookup-symbol-in-globals< / a > sym, out, globals, trace, inner-screen-var, inner-keyboard-var
< span id = "L909" class = "LineNr" > 909 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " x" < / span > , < span class = "Constant" > 7< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L910" class = "LineNr" > 910 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L911" class = "Folded" > 911 < / span > < span class = "Folded" > +-- 19 lines: # trace " => " out " (global)" ------------------------------------------------------------------------------------------------------------------------------------------------------------------------< / span >
< span id = "L930" class = "LineNr" > 930 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " y" < / span > , < span class = "Constant" > 7< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L931" class = "LineNr" > 931 < / span > < span class = "PreProc" > return< / span >
< span id = "L932" class = "LineNr" > 932 < / span > < span class = "Delimiter" > }< / span >
< span id = "L933" class = "LineNr" > 933 < / span > < span class = "muComment" > # check car< / span >
< span id = "L934" class = "LineNr" > 934 < / span > < span class = "PreProc" > var< / span > env-head-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L935" class = "LineNr" > 935 < / span > < span class = "PreProc" > var< / span > env-head-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address env-head-storage
< span id = "L936" class = "LineNr" > 936 < / span > < a href = 'evaluate.mu.html#L1189' > car< / a > env, env-head-ah, trace
< span id = "L937" class = "LineNr" > 937 < / span > < span class = "PreProc" > var< / span > _env-head/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *env-head-ah
< span id = "L938" class = "LineNr" > 938 < / span > < span class = "PreProc" > var< / span > env-head/< span class = "muRegEcx" > ecx< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _env-head
< span id = "L939" class = "LineNr" > 939 < / span > < span class = "muComment" > # if car is not a list, abort< / span >
< span id = "L940" class = "LineNr" > 940 < / span > < span class = "Delimiter" > {< / span >
< span id = "L941" class = "LineNr" > 941 < / span > < span class = "PreProc" > var< / span > env-head-type/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get env-head, < span class = "PreProc" > type< / span >
< span id = "L942" class = "LineNr" > 942 < / span > compare *env-head-type, < span class = "Constant" > 0< / span > /pair
< span id = "L943" class = "LineNr" > 943 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L944" class = "LineNr" > 944 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " environment is not a list of (key . value) pairs" < / span >
< span id = "L945" class = "LineNr" > 945 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L946" class = "LineNr" > 946 < / span > < span class = "PreProc" > return< / span >
< span id = "L947" class = "LineNr" > 947 < / span > < span class = "Delimiter" > }< / span >
< span id = "L948" class = "LineNr" > 948 < / span > < span class = "muComment" > # check key< / span >
< span id = "L949" class = "LineNr" > 949 < / span > < span class = "PreProc" > var< / span > curr-key-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L950" class = "LineNr" > 950 < / span > < span class = "PreProc" > var< / span > curr-key-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address curr-key-storage
< span id = "L951" class = "LineNr" > 951 < / span > < a href = 'evaluate.mu.html#L1189' > car< / a > env-head, curr-key-ah, trace
< span id = "L952" class = "LineNr" > 952 < / span > < span class = "PreProc" > var< / span > curr-key/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *curr-key-ah
< span id = "L953" class = "LineNr" > 953 < / span > < span class = "muComment" > # if key is not a symbol, abort< / span >
< span id = "L954" class = "LineNr" > 954 < / span > < span class = "Delimiter" > {< / span >
< span id = "L955" class = "LineNr" > 955 < / span > < span class = "PreProc" > var< / span > curr-key-type/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get curr-key, < span class = "PreProc" > type< / span >
< span id = "L956" class = "LineNr" > 956 < / span > compare *curr-key-type, < span class = "Constant" > 2< / span > /symbol
< span id = "L957" class = "LineNr" > 957 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L958" class = "LineNr" > 958 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " environment contains a binding for a non-symbol" < / span >
< span id = "L959" class = "LineNr" > 959 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L960" class = "LineNr" > 960 < / span > < span class = "PreProc" > return< / span >
< span id = "L961" class = "LineNr" > 961 < / span > < span class = "Delimiter" > }< / span >
< span id = "L962" class = "LineNr" > 962 < / span > < span class = "muComment" > # if key matches sym, return val< / span >
< span id = "L963" class = "LineNr" > 963 < / span > < span class = "PreProc" > var< / span > match?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'evaluate.mu.html#L1245' > cell-isomorphic?< / a > curr-key, sym, trace
< span id = "L964" class = "LineNr" > 964 < / span > compare match?, < span class = "Constant" > 0< / span > /false
< span id = "L965" class = "LineNr" > 965 < / span > < span class = "Delimiter" > {< / span >
< span id = "L966" class = "LineNr" > 966 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L967" class = "LineNr" > 967 < / span > < a href = 'evaluate.mu.html#L1217' > cdr< / a > env-head, out, trace
< span id = "L968" class = "Folded" > 968 < / span > < span class = "Folded" > +-- 19 lines: # trace " => " out " (match)" -------------------------------------------------------------------------------------------------------------------------------------------------------------------------< / span >
< span id = "L987" class = "LineNr" > 987 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L988" class = "LineNr" > 988 < / span > < span class = "PreProc" > return< / span >
< span id = "L989" class = "LineNr" > 989 < / span > < span class = "Delimiter" > }< / span >
< span id = "L990" class = "LineNr" > 990 < / span > < span class = "muComment" > # otherwise recurse< / span >
< span id = "L991" class = "LineNr" > 991 < / span > < span class = "PreProc" > var< / span > env-tail-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L992" class = "LineNr" > 992 < / span > < span class = "PreProc" > var< / span > env-tail-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address env-tail-storage
< span id = "L993" class = "LineNr" > 993 < / span > < a href = 'evaluate.mu.html#L1217' > cdr< / a > env, env-tail-ah, trace
< span id = "L994" class = "LineNr" > 994 < / span > < a href = 'evaluate.mu.html#L868' > lookup-symbol< / a > sym, out, *env-tail-ah, globals, trace, inner-screen-var, inner-keyboard-var
< span id = "L995" class = "LineNr" > 995 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L996" class = "Folded" > 996 < / span > < span class = "Folded" > +-- 19 lines: # trace " => " out " (recurse)" -----------------------------------------------------------------------------------------------------------------------------------------------------------------------< / span >
< span id = "L1015" class = "LineNr" > 1015 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1016" class = "LineNr" > 1016 < / span >
< span id = "L1017" class = "LineNr" > 1017 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'evaluate.mu.html#L1017' > test-lookup-symbol-in-env< / a > < / span > < span class = "Delimiter" > {< / span >
< span id = "L1018" class = "LineNr" > 1018 < / span > < span class = "muComment" > # tmp = (a . 3)< / span >
< span id = "L1019" class = "LineNr" > 1019 < / span > < span class = "PreProc" > var< / span > val-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1020" class = "LineNr" > 1020 < / span > < span class = "PreProc" > var< / span > val-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address val-storage
< span id = "L1021" class = "LineNr" > 1021 < / span > < a href = 'cell.mu.html#L84' > new-integer< / a > val-ah, < span class = "Constant" > 3< / span >
< span id = "L1022" class = "LineNr" > 1022 < / span > < span class = "PreProc" > var< / span > key-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1023" class = "LineNr" > 1023 < / span > < span class = "PreProc" > var< / span > key-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address key-storage
< span id = "L1024" class = "LineNr" > 1024 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > key-ah, < span class = "Constant" > " a" < / span >
< span id = "L1025" class = "LineNr" > 1025 < / span > < span class = "PreProc" > var< / span > env-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1026" class = "LineNr" > 1026 < / span > < span class = "PreProc" > var< / span > env-ah/< span class = "muRegEbx" > ebx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address env-storage
< span id = "L1027" class = "LineNr" > 1027 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > env-ah, *key-ah, *val-ah
< span id = "L1028" class = "LineNr" > 1028 < / span > < span class = "muComment" > # env = ((a . 3))< / span >
< span id = "L1029" class = "LineNr" > 1029 < / span > < span class = "PreProc" > var< / span > nil-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1030" class = "LineNr" > 1030 < / span > < span class = "PreProc" > var< / span > nil-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address nil-storage
< span id = "L1031" class = "LineNr" > 1031 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > nil-ah
< span id = "L1032" class = "LineNr" > 1032 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > env-ah, *env-ah, *nil-ah
< span id = "L1033" class = "LineNr" > 1033 < / span > < span class = "muComment" > # lookup sym(a) in env tmp< / span >
< span id = "L1034" class = "LineNr" > 1034 < / span > < span class = "PreProc" > var< / span > tmp-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1035" class = "LineNr" > 1035 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-storage
< span id = "L1036" class = "LineNr" > 1036 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > tmp-ah, < span class = "Constant" > " a" < / span >
< span id = "L1037" class = "LineNr" > 1037 < / span > < span class = "PreProc" > var< / span > in/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1038" class = "LineNr" > 1038 < / span > < span class = "PreProc" > var< / span > trace-storage: trace
< span id = "L1039" class = "LineNr" > 1039 < / span > < span class = "PreProc" > var< / span > trace/< span class = "muRegEdi" > edi< / span > : (addr trace) < span class = "Special" > < -< / span > address trace-storage
< span id = "L1040" class = "LineNr" > 1040 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > trace, < span class = "Constant" > 1< / span > /only-errors, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L1041" class = "LineNr" > 1041 < / span > < a href = 'evaluate.mu.html#L868' > lookup-symbol< / a > in, tmp-ah, *env-ah, < span class = "Constant" > 0< / span > /no-globals, trace, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard
< span id = "L1042" class = "LineNr" > 1042 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1043" class = "LineNr" > 1043 < / span > < span class = "PreProc" > var< / span > result-type/< span class = "muRegEdx" > edx< / span > : (addr int) < span class = "Special" > < -< / span > get result, < span class = "PreProc" > type< / span >
< span id = "L1044" class = "LineNr" > 1044 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-type, < span class = "Constant" > 1< / span > /number, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1017' > test-lookup-symbol-in-env< / a > /0" < / span >
< span id = "L1045" class = "LineNr" > 1045 < / span > < span class = "PreProc" > var< / span > result-value-addr/< span class = "muRegEax" > eax< / span > : (addr float) < span class = "Special" > < -< / span > get result, number-data
< span id = "L1046" class = "LineNr" > 1046 < / span > < span class = "PreProc" > var< / span > result-value/< span class = "muRegEax" > eax< / span > : int < span class = "Special" > < -< / span > convert *result-value-addr
< span id = "L1047" class = "LineNr" > 1047 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > result-value, < span class = "Constant" > 3< / span > , < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1017' > test-lookup-symbol-in-env< / a > /1" < / span >
< span id = "L1048" class = "LineNr" > 1048 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1049" class = "LineNr" > 1049 < / span >
< span id = "L1050" class = "LineNr" > 1050 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'evaluate.mu.html#L1050' > test-lookup-symbol-in-globals< / a > < / span > < span class = "Delimiter" > {< / span >
< span id = "L1051" class = "LineNr" > 1051 < / span > < span class = "PreProc" > var< / span > globals-storage: < a href = 'global.mu.html#L1' > global-table< / a >
< span id = "L1052" class = "LineNr" > 1052 < / span > < span class = "PreProc" > var< / span > globals/< span class = "muRegEdi" > edi< / span > : (addr < a href = 'global.mu.html#L1' > global-table< / a > ) < span class = "Special" > < -< / span > address globals-storage
< span id = "L1053" class = "LineNr" > 1053 < / span > < a href = 'global.mu.html#L14' > initialize-globals< / a > globals
< span id = "L1054" class = "LineNr" > 1054 < / span > < span class = "muComment" > # env = nil< / span >
< span id = "L1055" class = "LineNr" > 1055 < / span > < span class = "PreProc" > var< / span > nil-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1056" class = "LineNr" > 1056 < / span > < span class = "PreProc" > var< / span > nil-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address nil-storage
< span id = "L1057" class = "LineNr" > 1057 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > nil-ah
< span id = "L1058" class = "LineNr" > 1058 < / span > < span class = "muComment" > # lookup sym(a), env< / span >
< span id = "L1059" class = "LineNr" > 1059 < / span > < span class = "PreProc" > var< / span > tmp-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1060" class = "LineNr" > 1060 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEbx" > ebx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-storage
< span id = "L1061" class = "LineNr" > 1061 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > tmp-ah, < span class = "Constant" > " +" < / span >
< span id = "L1062" class = "LineNr" > 1062 < / span > < span class = "PreProc" > var< / span > in/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1063" class = "LineNr" > 1063 < / span > < span class = "PreProc" > var< / span > trace-storage: trace
< span id = "L1064" class = "LineNr" > 1064 < / span > < span class = "PreProc" > var< / span > trace/< span class = "muRegEsi" > esi< / span > : (addr trace) < span class = "Special" > < -< / span > address trace-storage
< span id = "L1065" class = "LineNr" > 1065 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > trace, < span class = "Constant" > 1< / span > /only-errors, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L1066" class = "LineNr" > 1066 < / span > < a href = 'evaluate.mu.html#L868' > lookup-symbol< / a > in, tmp-ah, *nil-ah, globals, trace, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard
< span id = "L1067" class = "LineNr" > 1067 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1068" class = "LineNr" > 1068 < / span > < span class = "PreProc" > var< / span > result-type/< span class = "muRegEdx" > edx< / span > : (addr int) < span class = "Special" > < -< / span > get result, < span class = "PreProc" > type< / span >
< span id = "L1069" class = "LineNr" > 1069 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-type, < span class = "Constant" > 4< / span > /primitive-function, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1050' > test-lookup-symbol-in-globals< / a > /0" < / span >
< span id = "L1070" class = "LineNr" > 1070 < / span > < span class = "PreProc" > var< / span > result-value/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get result, index-data
< span id = "L1071" class = "LineNr" > 1071 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-value, < span class = "Constant" > 1< / span > /add, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1050' > test-lookup-symbol-in-globals< / a > /1" < / span >
< span id = "L1072" class = "LineNr" > 1072 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1073" class = "LineNr" > 1073 < / span >
< span id = "L1074" class = "LineNr" > 1074 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L1074' > mutate-binding< / a > < / span > name: (addr stream byte), val: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), env-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > ), globals: (addr < a href = 'global.mu.html#L1' > global-table< / a > ), trace: (addr trace) < span class = "Delimiter" > {< / span >
< span id = "L1075" class = "LineNr" > 1075 < / span > < span class = "muComment" > # trace name< / span >
< span id = "L1076" class = "LineNr" > 1076 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1077" class = "LineNr" > 1077 < / span > < span class = "PreProc" > var< / span > < a href = 'trace.mu.html#L123' > should-trace?< / a > /< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L123' > should-trace?< / a > trace
< span id = "L1078" class = "LineNr" > 1078 < / span > compare < a href = 'trace.mu.html#L123' > should-trace?< / a > , < span class = "Constant" > 0< / span > /false
< span id = "L1079" class = "LineNr" > 1079 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1080" class = "LineNr" > 1080 < / span > < span class = "PreProc" > var< / span > stream-storage: (stream byte < span class = "Constant" > 0x800< / span > ) < span class = "muComment" > # pessimistically sized just for the large alist loaded from disk in `main`< / span >
< span id = "L1081" class = "LineNr" > 1081 < / span > < span class = "PreProc" > var< / span > stream/< span class = "muRegEcx" > ecx< / span > : (addr stream byte) < span class = "Special" > < -< / span > address stream-storage
< span id = "L1082" class = "LineNr" > 1082 < / span > < a href = '../108write.subx.html#L11' > write< / a > stream, < span class = "Constant" > " bind " < / span >
< span id = "L1083" class = "LineNr" > 1083 < / span > < a href = '../106stream.subx.html#L59' > rewind-stream< / a > name
< span id = "L1084" class = "LineNr" > 1084 < / span > < a href = '../113write-stream.subx.html#L8' > write-stream< / a > stream, name
< span id = "L1085" class = "LineNr" > 1085 < / span > < a href = '../108write.subx.html#L11' > write< / a > stream, < span class = "Constant" > " to " < / span >
< span id = "L1086" class = "LineNr" > 1086 < / span > < span class = "PreProc" > var< / span > nested-trace-storage: trace
< span id = "L1087" class = "LineNr" > 1087 < / span > < span class = "PreProc" > var< / span > nested-trace/< span class = "muRegEdi" > edi< / span > : (addr trace) < span class = "Special" > < -< / span > address nested-trace-storage
< span id = "L1088" class = "LineNr" > 1088 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > nested-trace, < span class = "Constant" > 1< / span > /only-errors, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L1089" class = "LineNr" > 1089 < / span > < a href = 'print.mu.html#L7' > print-cell< / a > val, stream, nested-trace
< span id = "L1090" class = "LineNr" > 1090 < / span > < a href = '../108write.subx.html#L11' > write< / a > stream, < span class = "Constant" > " in " < / span >
< span id = "L1091" class = "LineNr" > 1091 < / span > < span class = "PreProc" > var< / span > env-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address env-h
< span id = "L1092" class = "LineNr" > 1092 < / span > < a href = 'trace.mu.html#L80' > clear-trace< / a > nested-trace
< span id = "L1093" class = "LineNr" > 1093 < / span > < a href = 'print.mu.html#L7' > print-cell< / a > env-ah, stream, nested-trace
< span id = "L1094" class = "LineNr" > 1094 < / span > trace trace, < span class = "Constant" > " eval" < / span > , stream
< span id = "L1095" class = "LineNr" > 1095 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1096" class = "LineNr" > 1096 < / span > < a href = 'trace.mu.html#L239' > trace-lower< / a > trace
< span id = "L1097" class = "LineNr" > 1097 < / span > < span class = "PreProc" > var< / span > _env/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > env-h
< span id = "L1098" class = "LineNr" > 1098 < / span > < span class = "PreProc" > var< / span > env/< span class = "muRegEbx" > ebx< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _env
< span id = "L1099" class = "LineNr" > 1099 < / span > < span class = "muComment" > # if env is not a list, abort< / span >
< span id = "L1100" class = "LineNr" > 1100 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1101" class = "LineNr" > 1101 < / span > < span class = "PreProc" > var< / span > env-type/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get env, < span class = "PreProc" > type< / span >
< span id = "L1102" class = "LineNr" > 1102 < / span > compare *env-type, < span class = "Constant" > 0< / span > /pair
< span id = "L1103" class = "LineNr" > 1103 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1104" class = "LineNr" > 1104 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " eval found a non-list environment" < / span >
< span id = "L1105" class = "LineNr" > 1105 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1106" class = "LineNr" > 1106 < / span > < span class = "PreProc" > return< / span >
< span id = "L1107" class = "LineNr" > 1107 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1108" class = "LineNr" > 1108 < / span > < span class = "muComment" > # if env is nil, look in globals< / span >
< span id = "L1109" class = "LineNr" > 1109 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1110" class = "LineNr" > 1110 < / span > < span class = "PreProc" > var< / span > env-nil?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > env
< span id = "L1111" class = "LineNr" > 1111 < / span > compare env-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L1112" class = "LineNr" > 1112 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1113" class = "LineNr" > 1113 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " b" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1114" class = "LineNr" > 1114 < / span > < a href = 'global.mu.html#L464' > mutate-binding-in-globals< / a > name, val, globals, trace
< span id = "L1115" class = "LineNr" > 1115 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " x" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1116" class = "LineNr" > 1116 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1117" class = "Folded" > 1117 < / span > < span class = "Folded" > +-- 19 lines: # trace " => " val " (global)" ------------------------------------------------------------------------------------------------------------------------------------------------------------------------< / span >
< span id = "L1136" class = "LineNr" > 1136 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " y" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1137" class = "LineNr" > 1137 < / span > < span class = "PreProc" > return< / span >
< span id = "L1138" class = "LineNr" > 1138 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1139" class = "LineNr" > 1139 < / span > < span class = "muComment" > # check car< / span >
< span id = "L1140" class = "LineNr" > 1140 < / span > < span class = "PreProc" > var< / span > env-head-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1141" class = "LineNr" > 1141 < / span > < span class = "PreProc" > var< / span > env-head-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address env-head-storage
< span id = "L1142" class = "LineNr" > 1142 < / span > < a href = 'evaluate.mu.html#L1189' > car< / a > env, env-head-ah, trace
< span id = "L1143" class = "LineNr" > 1143 < / span > < span class = "PreProc" > var< / span > _env-head/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *env-head-ah
< span id = "L1144" class = "LineNr" > 1144 < / span > < span class = "PreProc" > var< / span > env-head/< span class = "muRegEcx" > ecx< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _env-head
< span id = "L1145" class = "LineNr" > 1145 < / span > < span class = "muComment" > # if car is not a list, abort< / span >
2021-06-16 04:50:13 +00:00
< span id = "L1146" class = "LineNr" > 1146 < / span > < span class = "Delimiter" > {< / span >
2021-06-23 20:19:20 +00:00
< span id = "L1147" class = "LineNr" > 1147 < / span > < span class = "PreProc" > var< / span > env-head-type/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get env-head, < span class = "PreProc" > type< / span >
< span id = "L1148" class = "LineNr" > 1148 < / span > compare *env-head-type, < span class = "Constant" > 0< / span > /pair
2021-06-16 04:50:13 +00:00
< span id = "L1149" class = "LineNr" > 1149 < / span > < span class = "PreProc" > break-if-=< / span >
2021-06-23 20:19:20 +00:00
< span id = "L1150" class = "LineNr" > 1150 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " environment is not a list of (key . value) pairs" < / span >
2021-06-16 04:50:13 +00:00
< span id = "L1151" class = "LineNr" > 1151 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1152" class = "LineNr" > 1152 < / span > < span class = "PreProc" > return< / span >
< span id = "L1153" class = "LineNr" > 1153 < / span > < span class = "Delimiter" > }< / span >
2021-06-23 20:19:20 +00:00
< span id = "L1154" class = "LineNr" > 1154 < / span > < span class = "muComment" > # check key< / span >
< span id = "L1155" class = "LineNr" > 1155 < / span > < span class = "PreProc" > var< / span > curr-key-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1156" class = "LineNr" > 1156 < / span > < span class = "PreProc" > var< / span > curr-key-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address curr-key-storage
< span id = "L1157" class = "LineNr" > 1157 < / span > < a href = 'evaluate.mu.html#L1189' > car< / a > env-head, curr-key-ah, trace
< span id = "L1158" class = "LineNr" > 1158 < / span > < span class = "PreProc" > var< / span > curr-key/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *curr-key-ah
< span id = "L1159" class = "LineNr" > 1159 < / span > < span class = "muComment" > # if key is not a symbol, abort< / span >
< span id = "L1160" class = "LineNr" > 1160 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1161" class = "LineNr" > 1161 < / span > < span class = "PreProc" > var< / span > curr-key-type/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get curr-key, < span class = "PreProc" > type< / span >
< span id = "L1162" class = "LineNr" > 1162 < / span > compare *curr-key-type, < span class = "Constant" > 2< / span > /symbol
< span id = "L1163" class = "LineNr" > 1163 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1164" class = "LineNr" > 1164 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " environment contains a binding for a non-symbol" < / span >
< span id = "L1165" class = "LineNr" > 1165 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1166" class = "LineNr" > 1166 < / span > < span class = "PreProc" > return< / span >
< span id = "L1167" class = "LineNr" > 1167 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1168" class = "LineNr" > 1168 < / span > < span class = "muComment" > # if key matches name, return val< / span >
< span id = "L1169" class = "LineNr" > 1169 < / span > < span class = "PreProc" > var< / span > curr-key-data-ah/< span class = "muRegEax" > eax< / span > : (addr handle stream byte) < span class = "Special" > < -< / span > get curr-key, text-data
< span id = "L1170" class = "LineNr" > 1170 < / span > < span class = "PreProc" > var< / span > curr-key-data/< span class = "muRegEax" > eax< / span > : (addr stream byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *curr-key-data-ah
< span id = "L1171" class = "LineNr" > 1171 < / span > < span class = "PreProc" > var< / span > match?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = '../309stream.subx.html#L211' > streams-data-equal?< / a > curr-key-data, name
< span id = "L1172" class = "LineNr" > 1172 < / span > compare match?, < span class = "Constant" > 0< / span > /false
< span id = "L1173" class = "LineNr" > 1173 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1174" class = "LineNr" > 1174 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1175" class = "LineNr" > 1175 < / span > < span class = "PreProc" > var< / span > dest/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get env-head, right
< span id = "L1176" class = "LineNr" > 1176 < / span > copy-object val, dest
< span id = "L1177" class = "LineNr" > 1177 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " => done" < / span >
< span id = "L1178" class = "LineNr" > 1178 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1179" class = "LineNr" > 1179 < / span > < span class = "PreProc" > return< / span >
< span id = "L1180" class = "LineNr" > 1180 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1181" class = "LineNr" > 1181 < / span > < span class = "muComment" > # otherwise recurse< / span >
< span id = "L1182" class = "LineNr" > 1182 < / span > < span class = "PreProc" > var< / span > env-tail-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1183" class = "LineNr" > 1183 < / span > < span class = "PreProc" > var< / span > env-tail-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address env-tail-storage
< span id = "L1184" class = "LineNr" > 1184 < / span > < a href = 'evaluate.mu.html#L1217' > cdr< / a > env, env-tail-ah, trace
< span id = "L1185" class = "LineNr" > 1185 < / span > < a href = 'evaluate.mu.html#L1074' > mutate-binding< / a > name, val, *env-tail-ah, globals, trace
< span id = "L1186" class = "LineNr" > 1186 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1187" class = "LineNr" > 1187 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1188" class = "LineNr" > 1188 < / span >
< span id = "L1189" class = "LineNr" > 1189 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L1189' > car< / a > < / span > _in: (addr < a href = 'cell.mu.html#L1' > cell< / a > ), out: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), trace: (addr trace) < span class = "Delimiter" > {< / span >
< span id = "L1190" class = "LineNr" > 1190 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " car" < / span >
< span id = "L1191" class = "LineNr" > 1191 < / span > < a href = 'trace.mu.html#L239' > trace-lower< / a > trace
< span id = "L1192" class = "LineNr" > 1192 < / span > < span class = "PreProc" > var< / span > in/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _in
< span id = "L1193" class = "LineNr" > 1193 < / span > < span class = "muComment" > # if in is not a list, abort< / span >
< span id = "L1194" class = "LineNr" > 1194 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1195" class = "LineNr" > 1195 < / span > < span class = "PreProc" > var< / span > in-type/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get in, < span class = "PreProc" > type< / span >
< span id = "L1196" class = "LineNr" > 1196 < / span > compare *in-type, < span class = "Constant" > 0< / span > /pair
< span id = "L1197" class = "LineNr" > 1197 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1198" class = "LineNr" > 1198 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " car on a non-list" < / span >
< span id = "L1199" class = "LineNr" > 1199 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1200" class = "LineNr" > 1200 < / span > < span class = "PreProc" > return< / span >
< span id = "L1201" class = "LineNr" > 1201 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1202" class = "LineNr" > 1202 < / span > < span class = "muComment" > # if in is nil, abort< / span >
< span id = "L1203" class = "LineNr" > 1203 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1204" class = "LineNr" > 1204 < / span > < span class = "PreProc" > var< / span > in-nil?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > in
< span id = "L1205" class = "LineNr" > 1205 < / span > compare in-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L1206" class = "LineNr" > 1206 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1207" class = "LineNr" > 1207 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " car on nil" < / span >
< span id = "L1208" class = "LineNr" > 1208 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1209" class = "LineNr" > 1209 < / span > < span class = "PreProc" > return< / span >
< span id = "L1210" class = "LineNr" > 1210 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1211" class = "LineNr" > 1211 < / span > < span class = "PreProc" > var< / span > in-left/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L1212" class = "LineNr" > 1212 < / span > copy-object in-left, out
< span id = "L1213" class = "LineNr" > 1213 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1214" class = "LineNr" > 1214 < / span > < span class = "PreProc" > return< / span >
< span id = "L1215" class = "LineNr" > 1215 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1216" class = "LineNr" > 1216 < / span >
< span id = "L1217" class = "LineNr" > 1217 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L1217' > cdr< / a > < / span > _in: (addr < a href = 'cell.mu.html#L1' > cell< / a > ), out: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), trace: (addr trace) < span class = "Delimiter" > {< / span >
< span id = "L1218" class = "LineNr" > 1218 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " cdr" < / span >
< span id = "L1219" class = "LineNr" > 1219 < / span > < a href = 'trace.mu.html#L239' > trace-lower< / a > trace
< span id = "L1220" class = "LineNr" > 1220 < / span > < span class = "PreProc" > var< / span > in/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _in
< span id = "L1221" class = "LineNr" > 1221 < / span > < span class = "muComment" > # if in is not a list, abort< / span >
< span id = "L1222" class = "LineNr" > 1222 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1223" class = "LineNr" > 1223 < / span > < span class = "PreProc" > var< / span > in-type/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get in, < span class = "PreProc" > type< / span >
< span id = "L1224" class = "LineNr" > 1224 < / span > compare *in-type, < span class = "Constant" > 0< / span > /pair
< span id = "L1225" class = "LineNr" > 1225 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1226" class = "LineNr" > 1226 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " car on a non-list" < / span >
< span id = "L1227" class = "LineNr" > 1227 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1228" class = "LineNr" > 1228 < / span > < span class = "PreProc" > return< / span >
< span id = "L1229" class = "LineNr" > 1229 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1230" class = "LineNr" > 1230 < / span > < span class = "muComment" > # if in is nil, abort< / span >
< span id = "L1231" class = "LineNr" > 1231 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1232" class = "LineNr" > 1232 < / span > < span class = "PreProc" > var< / span > in-nil?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > in
< span id = "L1233" class = "LineNr" > 1233 < / span > compare in-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L1234" class = "LineNr" > 1234 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1235" class = "LineNr" > 1235 < / span > < span class = "Special" > < a href = 'trace.mu.html#L197' > error< / a > < / span > trace, < span class = "Constant" > " car on nil" < / span >
< span id = "L1236" class = "LineNr" > 1236 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1237" class = "LineNr" > 1237 < / span > < span class = "PreProc" > return< / span >
< span id = "L1238" class = "LineNr" > 1238 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1239" class = "LineNr" > 1239 < / span > < span class = "PreProc" > var< / span > in-right/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L1240" class = "LineNr" > 1240 < / span > copy-object in-right, out
< span id = "L1241" class = "LineNr" > 1241 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1242" class = "LineNr" > 1242 < / span > < span class = "PreProc" > return< / span >
< span id = "L1243" class = "LineNr" > 1243 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1244" class = "LineNr" > 1244 < / span >
< span id = "L1245" class = "LineNr" > 1245 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L1245' > cell-isomorphic?< / a > < / span > _a: (addr < a href = 'cell.mu.html#L1' > cell< / a > ), _b: (addr < a href = 'cell.mu.html#L1' > cell< / a > ), trace: (addr trace)< span class = "PreProc" > -> < / span > _/< span class = "muRegEax" > eax< / span > : boolean < span class = "Delimiter" > {< / span >
< span id = "L1246" class = "LineNr" > 1246 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " cell-isomorphic?" < / span >
< span id = "L1247" class = "LineNr" > 1247 < / span > < a href = 'trace.mu.html#L239' > trace-lower< / a > trace
< span id = "L1248" class = "LineNr" > 1248 < / span > < span class = "PreProc" > var< / span > a/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _a
< span id = "L1249" class = "LineNr" > 1249 < / span > < span class = "PreProc" > var< / span > b/< span class = "muRegEdi" > edi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _b
< span id = "L1250" class = "LineNr" > 1250 < / span > < span class = "muComment" > # if types don't match, return false< / span >
< span id = "L1251" class = "LineNr" > 1251 < / span > < span class = "PreProc" > var< / span > a-type-addr/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get a, < span class = "PreProc" > type< / span >
< span id = "L1252" class = "LineNr" > 1252 < / span > < span class = "PreProc" > var< / span > b-type-addr/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get b, < span class = "PreProc" > type< / span >
< span id = "L1253" class = "LineNr" > 1253 < / span > < span class = "PreProc" > var< / span > b-type/< span class = "muRegEcx" > ecx< / span > : int < span class = "Special" > < -< / span > copy *b-type-addr
< span id = "L1254" class = "LineNr" > 1254 < / span > compare b-type, *a-type-addr
< span id = "L1255" class = "LineNr" > 1255 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1256" class = "LineNr" > 1256 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1257" class = "LineNr" > 1257 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1258" class = "LineNr" > 1258 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " => false (type)" < / span >
< span id = "L1259" class = "LineNr" > 1259 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L1260" class = "LineNr" > 1260 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1261" class = "LineNr" > 1261 < / span > < span class = "muComment" > # if types are number, compare number-data< / span >
< span id = "L1262" class = "LineNr" > 1262 < / span > < span class = "muComment" > # TODO: exactly comparing floats is a bad idea< / span >
< span id = "L1263" class = "LineNr" > 1263 < / span > compare b-type, < span class = "Constant" > 1< / span > /number
< span id = "L1264" class = "LineNr" > 1264 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1265" class = "LineNr" > 1265 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L1266" class = "LineNr" > 1266 < / span > < span class = "PreProc" > var< / span > a-val-addr/< span class = "muRegEax" > eax< / span > : (addr float) < span class = "Special" > < -< / span > get a, number-data
< span id = "L1267" class = "LineNr" > 1267 < / span > < span class = "PreProc" > var< / span > b-val-addr/< span class = "muRegEcx" > ecx< / span > : (addr float) < span class = "Special" > < -< / span > get b, number-data
< span id = "L1268" class = "LineNr" > 1268 < / span > < span class = "PreProc" > var< / span > a-val/< span class = "Constant" > xmm0< / span > : float < span class = "Special" > < -< / span > copy *a-val-addr
< span id = "L1269" class = "LineNr" > 1269 < / span > compare a-val, *b-val-addr
< span id = "L1270" class = "LineNr" > 1270 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1271" class = "LineNr" > 1271 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1272" class = "LineNr" > 1272 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1273" class = "LineNr" > 1273 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " => false (numbers)" < / span >
< span id = "L1274" class = "LineNr" > 1274 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L1275" class = "LineNr" > 1275 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1276" class = "LineNr" > 1276 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1277" class = "LineNr" > 1277 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " => true (numbers)" < / span >
< span id = "L1278" class = "LineNr" > 1278 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L1279" class = "LineNr" > 1279 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1280" class = "LineNr" > 1280 < / span > $cell-isomorphic?:text-data: < span class = "Delimiter" > {< / span >
< span id = "L1281" class = "LineNr" > 1281 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1282" class = "LineNr" > 1282 < / span > compare b-type, < span class = "Constant" > 2< / span > /symbol
< span id = "L1283" class = "LineNr" > 1283 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1284" class = "LineNr" > 1284 < / span > compare b-type, < span class = "Constant" > 3< / span > /stream
< span id = "L1285" class = "LineNr" > 1285 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1286" class = "LineNr" > 1286 < / span > < span class = "PreProc" > break< / span > $cell-isomorphic?:text-data
< span id = "L1287" class = "LineNr" > 1287 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1288" class = "LineNr" > 1288 < / span > < span class = "PreProc" > var< / span > b-val-ah/< span class = "muRegEax" > eax< / span > : (addr handle stream byte) < span class = "Special" > < -< / span > get b, text-data
< span id = "L1289" class = "LineNr" > 1289 < / span > < span class = "PreProc" > var< / span > _b-val/< span class = "muRegEax" > eax< / span > : (addr stream byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *b-val-ah
< span id = "L1290" class = "LineNr" > 1290 < / span > < span class = "PreProc" > var< / span > b-val/< span class = "muRegEcx" > ecx< / span > : (addr stream byte) < span class = "Special" > < -< / span > copy _b-val
< span id = "L1291" class = "LineNr" > 1291 < / span > < span class = "PreProc" > var< / span > a-val-ah/< span class = "muRegEax" > eax< / span > : (addr handle stream byte) < span class = "Special" > < -< / span > get a, text-data
< span id = "L1292" class = "LineNr" > 1292 < / span > < span class = "PreProc" > var< / span > a-val/< span class = "muRegEax" > eax< / span > : (addr stream byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *a-val-ah
< span id = "L1293" class = "LineNr" > 1293 < / span > < span class = "PreProc" > var< / span > tmp-array: (handle array byte)
< span id = "L1294" class = "LineNr" > 1294 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEdx" > edx< / span > : (addr handle array byte) < span class = "Special" > < -< / span > address tmp-array
< span id = "L1295" class = "LineNr" > 1295 < / span > < a href = '../106stream.subx.html#L59' > rewind-stream< / a > a-val
< span id = "L1296" class = "LineNr" > 1296 < / span > < a href = '../310copy-bytes.subx.html#L60' > stream-to-array< / a > a-val, tmp-ah
< span id = "L1297" class = "LineNr" > 1297 < / span > < span class = "PreProc" > var< / span > tmp/< span class = "muRegEax" > eax< / span > : (addr array byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1298" class = "LineNr" > 1298 < / span > < span class = "PreProc" > var< / span > match?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = '../109stream-equal.subx.html#L9' > stream-data-equal?< / a > b-val, tmp
< span id = "L1299" class = "LineNr" > 1299 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1300" class = "LineNr" > 1300 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1301" class = "LineNr" > 1301 < / span > compare match?, < span class = "Constant" > 0< / span > /false
< span id = "L1302" class = "LineNr" > 1302 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1303" class = "LineNr" > 1303 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " => true (symbols)" < / span >
< span id = "L1304" class = "LineNr" > 1304 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1305" class = "LineNr" > 1305 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1306" class = "LineNr" > 1306 < / span > compare match?, < span class = "Constant" > 0< / span > /false
< span id = "L1307" class = "LineNr" > 1307 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L1308" class = "LineNr" > 1308 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " => false (symbols)" < / span >
< span id = "L1309" class = "LineNr" > 1309 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1310" class = "LineNr" > 1310 < / span > < span class = "PreProc" > return< / span > match?
< span id = "L1311" class = "LineNr" > 1311 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1312" class = "LineNr" > 1312 < / span > < span class = "muComment" > # if objects are primitive functions, compare index-data< / span >
< span id = "L1313" class = "LineNr" > 1313 < / span > compare b-type, < span class = "Constant" > 4< / span > /primitive
< span id = "L1314" class = "LineNr" > 1314 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1315" class = "LineNr" > 1315 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L1316" class = "LineNr" > 1316 < / span > < span class = "PreProc" > var< / span > a-val-addr/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get a, index-data
< span id = "L1317" class = "LineNr" > 1317 < / span > < span class = "PreProc" > var< / span > b-val-addr/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get b, index-data
< span id = "L1318" class = "LineNr" > 1318 < / span > < span class = "PreProc" > var< / span > a-val/< span class = "muRegEax" > eax< / span > : int < span class = "Special" > < -< / span > copy *a-val-addr
< span id = "L1319" class = "LineNr" > 1319 < / span > compare a-val, *b-val-addr
< span id = "L1320" class = "LineNr" > 1320 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1321" class = "LineNr" > 1321 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1322" class = "LineNr" > 1322 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1323" class = "LineNr" > 1323 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " => false (primitives)" < / span >
< span id = "L1324" class = "LineNr" > 1324 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L1325" class = "LineNr" > 1325 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1326" class = "LineNr" > 1326 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1327" class = "LineNr" > 1327 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " => true (primitives)" < / span >
< span id = "L1328" class = "LineNr" > 1328 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L1329" class = "LineNr" > 1329 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1330" class = "LineNr" > 1330 < / span > < span class = "muComment" > # if objects are screens, check if they're the same object< / span >
< span id = "L1331" class = "LineNr" > 1331 < / span > compare b-type, < span class = "Constant" > 5< / span > /screen
< span id = "L1332" class = "LineNr" > 1332 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1333" class = "LineNr" > 1333 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L1334" class = "LineNr" > 1334 < / span > < span class = "PreProc" > var< / span > a-val-addr/< span class = "muRegEax" > eax< / span > : (addr handle < a href = '../500fake-screen.mu.html#L14' > screen< / a > ) < span class = "Special" > < -< / span > get a, screen-data
< span id = "L1335" class = "LineNr" > 1335 < / span > < span class = "PreProc" > var< / span > b-val-addr/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = '../500fake-screen.mu.html#L14' > screen< / a > ) < span class = "Special" > < -< / span > get b, screen-data
< span id = "L1336" class = "LineNr" > 1336 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L448' > handle-equal?< / a > *a-val-addr, *b-val-addr
< span id = "L1337" class = "LineNr" > 1337 < / span > compare result, < span class = "Constant" > 0< / span > /false
< span id = "L1338" class = "LineNr" > 1338 < / span > < span class = "PreProc" > return< / span > result
< span id = "L1339" class = "LineNr" > 1339 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1340" class = "LineNr" > 1340 < / span > < span class = "muComment" > # if objects are keyboards, check if they have the same contents< / span >
< span id = "L1341" class = "LineNr" > 1341 < / span > compare b-type, < span class = "Constant" > 6< / span > /keyboard
< span id = "L1342" class = "LineNr" > 1342 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1343" class = "LineNr" > 1343 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L1344" class = "LineNr" > 1344 < / span > < span class = "PreProc" > var< / span > a-val-addr/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'gap-buffer.mu.html#L3' > gap-buffer< / a > ) < span class = "Special" > < -< / span > get a, keyboard-data
< span id = "L1345" class = "LineNr" > 1345 < / span > < span class = "PreProc" > var< / span > _a/< span class = "muRegEax" > eax< / span > : (addr < a href = 'gap-buffer.mu.html#L3' > gap-buffer< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *a-val-addr
< span id = "L1346" class = "LineNr" > 1346 < / span > < span class = "PreProc" > var< / span > a/< span class = "muRegEcx" > ecx< / span > : (addr < a href = 'gap-buffer.mu.html#L3' > gap-buffer< / a > ) < span class = "Special" > < -< / span > copy _a
< span id = "L1347" class = "LineNr" > 1347 < / span > < span class = "PreProc" > var< / span > b-val-addr/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'gap-buffer.mu.html#L3' > gap-buffer< / a > ) < span class = "Special" > < -< / span > get b, keyboard-data
< span id = "L1348" class = "LineNr" > 1348 < / span > < span class = "PreProc" > var< / span > b/< span class = "muRegEax" > eax< / span > : (addr < a href = 'gap-buffer.mu.html#L3' > gap-buffer< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *b-val-addr
< span id = "L1349" class = "LineNr" > 1349 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'gap-buffer.mu.html#L664' > gap-buffers-equal?< / a > a, b
< span id = "L1350" class = "LineNr" > 1350 < / span > < span class = "PreProc" > return< / span > result
< span id = "L1351" class = "LineNr" > 1351 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1352" class = "LineNr" > 1352 < / span > < span class = "muComment" > # if a is nil, b should be nil< / span >
< span id = "L1353" class = "LineNr" > 1353 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1354" class = "LineNr" > 1354 < / span > < span class = "muComment" > # (assumes nil? returns 0 or 1)< / span >
< span id = "L1355" class = "LineNr" > 1355 < / span > < span class = "PreProc" > var< / span > _b-nil?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > b
< span id = "L1356" class = "LineNr" > 1356 < / span > < span class = "PreProc" > var< / span > b-nil?/< span class = "muRegEcx" > ecx< / span > : boolean < span class = "Special" > < -< / span > copy _b-nil?
< span id = "L1357" class = "LineNr" > 1357 < / span > < span class = "PreProc" > var< / span > a-nil?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > a
< span id = "L1358" class = "LineNr" > 1358 < / span > < span class = "muComment" > # a == nil and b == nil => return true< / span >
< span id = "L1359" class = "LineNr" > 1359 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1360" class = "LineNr" > 1360 < / span > compare a-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L1361" class = "LineNr" > 1361 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1362" class = "LineNr" > 1362 < / span > compare b-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L1363" class = "LineNr" > 1363 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1364" class = "LineNr" > 1364 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1365" class = "LineNr" > 1365 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " => true (nils)" < / span >
< span id = "L1366" class = "LineNr" > 1366 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 1< / span > /true
< span id = "L1367" class = "LineNr" > 1367 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1368" class = "LineNr" > 1368 < / span > < span class = "muComment" > # a == nil => return false< / span >
< span id = "L1369" class = "LineNr" > 1369 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1370" class = "LineNr" > 1370 < / span > compare a-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L1371" class = "LineNr" > 1371 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1372" class = "LineNr" > 1372 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1373" class = "LineNr" > 1373 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " => false (b != < a href = 'cell.mu.html#L121' > nil< / a > )" < / span >
< span id = "L1374" class = "LineNr" > 1374 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L1375" class = "LineNr" > 1375 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1376" class = "LineNr" > 1376 < / span > < span class = "muComment" > # b == nil => return false< / span >
< span id = "L1377" class = "LineNr" > 1377 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1378" class = "LineNr" > 1378 < / span > compare b-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L1379" class = "LineNr" > 1379 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1380" class = "LineNr" > 1380 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1381" class = "LineNr" > 1381 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " => false (a != < a href = 'cell.mu.html#L121' > nil< / a > )" < / span >
< span id = "L1382" class = "LineNr" > 1382 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L1383" class = "LineNr" > 1383 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1384" class = "LineNr" > 1384 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1385" class = "LineNr" > 1385 < / span > < span class = "muComment" > # a and b are pairs< / span >
< span id = "L1386" class = "LineNr" > 1386 < / span > < span class = "PreProc" > var< / span > a-tmp-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1387" class = "LineNr" > 1387 < / span > < span class = "PreProc" > var< / span > a-tmp-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address a-tmp-storage
< span id = "L1388" class = "LineNr" > 1388 < / span > < span class = "PreProc" > var< / span > b-tmp-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1389" class = "LineNr" > 1389 < / span > < span class = "PreProc" > var< / span > b-tmp-ah/< span class = "muRegEbx" > ebx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address b-tmp-storage
< span id = "L1390" class = "LineNr" > 1390 < / span > < span class = "muComment" > # if cars aren't equal, return false< / span >
< span id = "L1391" class = "LineNr" > 1391 < / span > < a href = 'evaluate.mu.html#L1189' > car< / a > a, a-tmp-ah, trace
< span id = "L1392" class = "LineNr" > 1392 < / span > < a href = 'evaluate.mu.html#L1189' > car< / a > b, b-tmp-ah, trace
< span id = "L1393" class = "LineNr" > 1393 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1394" class = "LineNr" > 1394 < / span > < span class = "PreProc" > var< / span > _a-tmp/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *a-tmp-ah
< span id = "L1395" class = "LineNr" > 1395 < / span > < span class = "PreProc" > var< / span > a-tmp/< span class = "muRegEcx" > ecx< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _a-tmp
< span id = "L1396" class = "LineNr" > 1396 < / span > < span class = "PreProc" > var< / span > b-tmp/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *b-tmp-ah
< span id = "L1397" class = "LineNr" > 1397 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'evaluate.mu.html#L1245' > cell-isomorphic?< / a > a-tmp, b-tmp, trace
< span id = "L1398" class = "LineNr" > 1398 < / span > compare result, < span class = "Constant" > 0< / span > /false
< span id = "L1399" class = "LineNr" > 1399 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L1400" class = "LineNr" > 1400 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1401" class = "LineNr" > 1401 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " => false (< a href = 'evaluate.mu.html#L1189' > car< / a > mismatch)" < / span >
< span id = "L1402" class = "LineNr" > 1402 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L1403" class = "LineNr" > 1403 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1404" class = "LineNr" > 1404 < / span > < span class = "muComment" > # recurse on cdrs< / span >
< span id = "L1405" class = "LineNr" > 1405 < / span > < a href = 'evaluate.mu.html#L1217' > cdr< / a > a, a-tmp-ah, trace
< span id = "L1406" class = "LineNr" > 1406 < / span > < a href = 'evaluate.mu.html#L1217' > cdr< / a > b, b-tmp-ah, trace
< span id = "L1407" class = "LineNr" > 1407 < / span > < span class = "PreProc" > var< / span > _a-tmp/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *a-tmp-ah
< span id = "L1408" class = "LineNr" > 1408 < / span > < span class = "PreProc" > var< / span > a-tmp/< span class = "muRegEcx" > ecx< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _a-tmp
< span id = "L1409" class = "LineNr" > 1409 < / span > < span class = "PreProc" > var< / span > b-tmp/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *b-tmp-ah
< span id = "L1410" class = "LineNr" > 1410 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'evaluate.mu.html#L1245' > cell-isomorphic?< / a > a-tmp, b-tmp, trace
< span id = "L1411" class = "LineNr" > 1411 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1412" class = "LineNr" > 1412 < / span > < span class = "PreProc" > return< / span > result
< span id = "L1413" class = "LineNr" > 1413 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1414" class = "LineNr" > 1414 < / span >
< span id = "L1415" class = "LineNr" > 1415 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L1415' > fn?< / a > < / span > _x: (addr < a href = 'cell.mu.html#L1' > cell< / a > )< span class = "PreProc" > -> < / span > _/< span class = "muRegEax" > eax< / span > : boolean < span class = "Delimiter" > {< / span >
< span id = "L1416" class = "LineNr" > 1416 < / span > < span class = "PreProc" > var< / span > x/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _x
< span id = "L1417" class = "LineNr" > 1417 < / span > < span class = "PreProc" > var< / span > < span class = "PreProc" > type< / span > /< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get x, < span class = "PreProc" > type< / span >
< span id = "L1418" class = "LineNr" > 1418 < / span > compare *< span class = "PreProc" > type< / span > , < span class = "Constant" > 2< / span > /symbol
< span id = "L1419" class = "LineNr" > 1419 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1420" class = "LineNr" > 1420 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1421" class = "LineNr" > 1421 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L1422" class = "LineNr" > 1422 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1423" class = "LineNr" > 1423 < / span > < span class = "PreProc" > var< / span > contents-ah/< span class = "muRegEax" > eax< / span > : (addr handle stream byte) < span class = "Special" > < -< / span > get x, text-data
< span id = "L1424" class = "LineNr" > 1424 < / span > < span class = "PreProc" > var< / span > contents/< span class = "muRegEax" > eax< / span > : (addr stream byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *contents-ah
< span id = "L1425" class = "LineNr" > 1425 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = '../109stream-equal.subx.html#L9' > stream-data-equal?< / a > contents, < span class = "Constant" > " fn" < / span >
< span id = "L1426" class = "LineNr" > 1426 < / span > < span class = "PreProc" > return< / span > result
< span id = "L1427" class = "LineNr" > 1427 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1428" class = "LineNr" > 1428 < / span >
< span id = "L1429" class = "LineNr" > 1429 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L1429' > litfn?< / a > < / span > _x: (addr < a href = 'cell.mu.html#L1' > cell< / a > )< span class = "PreProc" > -> < / span > _/< span class = "muRegEax" > eax< / span > : boolean < span class = "Delimiter" > {< / span >
< span id = "L1430" class = "LineNr" > 1430 < / span > < span class = "PreProc" > var< / span > x/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _x
< span id = "L1431" class = "LineNr" > 1431 < / span > < span class = "PreProc" > var< / span > < span class = "PreProc" > type< / span > /< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get x, < span class = "PreProc" > type< / span >
< span id = "L1432" class = "LineNr" > 1432 < / span > compare *< span class = "PreProc" > type< / span > , < span class = "Constant" > 2< / span > /symbol
< span id = "L1433" class = "LineNr" > 1433 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1434" class = "LineNr" > 1434 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1435" class = "LineNr" > 1435 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L1436" class = "LineNr" > 1436 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1437" class = "LineNr" > 1437 < / span > < span class = "PreProc" > var< / span > contents-ah/< span class = "muRegEax" > eax< / span > : (addr handle stream byte) < span class = "Special" > < -< / span > get x, text-data
< span id = "L1438" class = "LineNr" > 1438 < / span > < span class = "PreProc" > var< / span > contents/< span class = "muRegEax" > eax< / span > : (addr stream byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *contents-ah
< span id = "L1439" class = "LineNr" > 1439 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = '../109stream-equal.subx.html#L9' > stream-data-equal?< / a > contents, < span class = "Constant" > " litfn" < / span >
< span id = "L1440" class = "LineNr" > 1440 < / span > < span class = "PreProc" > return< / span > result
< span id = "L1441" class = "LineNr" > 1441 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1442" class = "LineNr" > 1442 < / span >
< span id = "L1443" class = "LineNr" > 1443 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L1443' > litmac?< / a > < / span > _x: (addr < a href = 'cell.mu.html#L1' > cell< / a > )< span class = "PreProc" > -> < / span > _/< span class = "muRegEax" > eax< / span > : boolean < span class = "Delimiter" > {< / span >
< span id = "L1444" class = "LineNr" > 1444 < / span > < span class = "PreProc" > var< / span > x/< span class = "muRegEsi" > esi< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _x
< span id = "L1445" class = "LineNr" > 1445 < / span > < span class = "PreProc" > var< / span > < span class = "PreProc" > type< / span > /< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get x, < span class = "PreProc" > type< / span >
< span id = "L1446" class = "LineNr" > 1446 < / span > compare *< span class = "PreProc" > type< / span > , < span class = "Constant" > 2< / span > /symbol
< span id = "L1447" class = "LineNr" > 1447 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1448" class = "LineNr" > 1448 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1449" class = "LineNr" > 1449 < / span > < span class = "PreProc" > return< / span > < span class = "Constant" > 0< / span > /false
< span id = "L1450" class = "LineNr" > 1450 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1451" class = "LineNr" > 1451 < / span > < span class = "PreProc" > var< / span > contents-ah/< span class = "muRegEax" > eax< / span > : (addr handle stream byte) < span class = "Special" > < -< / span > get x, text-data
< span id = "L1452" class = "LineNr" > 1452 < / span > < span class = "PreProc" > var< / span > contents/< span class = "muRegEax" > eax< / span > : (addr stream byte) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *contents-ah
< span id = "L1453" class = "LineNr" > 1453 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = '../109stream-equal.subx.html#L9' > stream-data-equal?< / a > contents, < span class = "Constant" > " litmac" < / span >
< span id = "L1454" class = "LineNr" > 1454 < / span > < span class = "PreProc" > return< / span > result
< span id = "L1455" class = "LineNr" > 1455 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1456" class = "LineNr" > 1456 < / span >
< span id = "L1457" class = "LineNr" > 1457 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'evaluate.mu.html#L1457' > test-evaluate-is-well-behaved< / a > < / span > < span class = "Delimiter" > {< / span >
< span id = "L1458" class = "LineNr" > 1458 < / span > < span class = "PreProc" > var< / span > t-storage: trace
< span id = "L1459" class = "LineNr" > 1459 < / span > < span class = "PreProc" > var< / span > t/< span class = "muRegEsi" > esi< / span > : (addr trace) < span class = "Special" > < -< / span > address t-storage
< span id = "L1460" class = "LineNr" > 1460 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > t, < span class = "Constant" > 0x100< / span > /max-depth, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible < span class = "muComment" > # we don't use trace UI< / span >
< span id = "L1461" class = "LineNr" > 1461 < / span > < span class = "muComment" > # env = nil< / span >
< span id = "L1462" class = "LineNr" > 1462 < / span > < span class = "PreProc" > var< / span > env-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1463" class = "LineNr" > 1463 < / span > < span class = "PreProc" > var< / span > env-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address env-storage
< span id = "L1464" class = "LineNr" > 1464 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > env-ah
< span id = "L1465" class = "LineNr" > 1465 < / span > < span class = "muComment" > # eval sym(a), nil env< / span >
< span id = "L1466" class = "LineNr" > 1466 < / span > < span class = "PreProc" > var< / span > tmp-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1467" class = "LineNr" > 1467 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-storage
< span id = "L1468" class = "LineNr" > 1468 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > tmp-ah, < span class = "Constant" > " a" < / span >
< span id = "L1469" class = "LineNr" > 1469 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > tmp-ah, tmp-ah, *env-ah, < span class = "Constant" > 0< / span > /no-globals, t, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard, < span class = "Constant" > 0< / span > /definitions-created, < span class = "Constant" > 0< / span > /call-number
< span id = "L1470" class = "LineNr" > 1470 < / span > < span class = "muComment" > # doesn't die< / span >
< span id = "L1471" class = "LineNr" > 1471 < / span > < a href = 'trace.mu.html#L292' > check-trace-contains< / a > t, < span class = "Constant" > " error" < / span > , < span class = "Constant" > " unbound symbol: a" < / span > , < span class = "Constant" > " F - test-evaluate-is-well-behaved" < / span >
< span id = "L1472" class = "LineNr" > 1472 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1473" class = "LineNr" > 1473 < / span >
< span id = "L1474" class = "LineNr" > 1474 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'evaluate.mu.html#L1474' > test-evaluate-number< / a > < / span > < span class = "Delimiter" > {< / span >
< span id = "L1475" class = "LineNr" > 1475 < / span > < span class = "muComment" > # env = nil< / span >
< span id = "L1476" class = "LineNr" > 1476 < / span > < span class = "PreProc" > var< / span > env-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1477" class = "LineNr" > 1477 < / span > < span class = "PreProc" > var< / span > env-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address env-storage
< span id = "L1478" class = "LineNr" > 1478 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > env-ah
< span id = "L1479" class = "LineNr" > 1479 < / span > < span class = "muComment" > # tmp = 3< / span >
< span id = "L1480" class = "LineNr" > 1480 < / span > < span class = "PreProc" > var< / span > tmp-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1481" class = "LineNr" > 1481 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-storage
< span id = "L1482" class = "LineNr" > 1482 < / span > < a href = 'cell.mu.html#L84' > new-integer< / a > tmp-ah, < span class = "Constant" > 3< / span >
< span id = "L1483" class = "LineNr" > 1483 < / span > < span class = "PreProc" > var< / span > trace-storage: trace
< span id = "L1484" class = "LineNr" > 1484 < / span > < span class = "PreProc" > var< / span > trace/< span class = "muRegEdi" > edi< / span > : (addr trace) < span class = "Special" > < -< / span > address trace-storage
< span id = "L1485" class = "LineNr" > 1485 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > trace, < span class = "Constant" > 1< / span > /only-errors, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L1486" class = "LineNr" > 1486 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > tmp-ah, tmp-ah, *env-ah, < span class = "Constant" > 0< / span > /no-globals, trace, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard, < span class = "Constant" > 0< / span > /definitions-created, < span class = "Constant" > 0< / span > /call-number
< span id = "L1487" class = "LineNr" > 1487 < / span > < span class = "muComment" > #< / span >
< span id = "L1488" class = "LineNr" > 1488 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1489" class = "LineNr" > 1489 < / span > < span class = "PreProc" > var< / span > result-type/< span class = "muRegEdx" > edx< / span > : (addr int) < span class = "Special" > < -< / span > get result, < span class = "PreProc" > type< / span >
< span id = "L1490" class = "LineNr" > 1490 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-type, < span class = "Constant" > 1< / span > /number, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1474' > test-evaluate-number< / a > /0" < / span >
< span id = "L1491" class = "LineNr" > 1491 < / span > < span class = "PreProc" > var< / span > result-value-addr/< span class = "muRegEax" > eax< / span > : (addr float) < span class = "Special" > < -< / span > get result, number-data
< span id = "L1492" class = "LineNr" > 1492 < / span > < span class = "PreProc" > var< / span > result-value/< span class = "muRegEax" > eax< / span > : int < span class = "Special" > < -< / span > convert *result-value-addr
< span id = "L1493" class = "LineNr" > 1493 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > result-value, < span class = "Constant" > 3< / span > , < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1474' > test-evaluate-number< / a > /1" < / span >
< span id = "L1494" class = "LineNr" > 1494 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1495" class = "LineNr" > 1495 < / span >
< span id = "L1496" class = "LineNr" > 1496 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'evaluate.mu.html#L1496' > test-evaluate-symbol< / a > < / span > < span class = "Delimiter" > {< / span >
< span id = "L1497" class = "LineNr" > 1497 < / span > < span class = "muComment" > # tmp = (a . 3)< / span >
< span id = "L1498" class = "LineNr" > 1498 < / span > < span class = "PreProc" > var< / span > val-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1499" class = "LineNr" > 1499 < / span > < span class = "PreProc" > var< / span > val-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address val-storage
< span id = "L1500" class = "LineNr" > 1500 < / span > < a href = 'cell.mu.html#L84' > new-integer< / a > val-ah, < span class = "Constant" > 3< / span >
< span id = "L1501" class = "LineNr" > 1501 < / span > < span class = "PreProc" > var< / span > key-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1502" class = "LineNr" > 1502 < / span > < span class = "PreProc" > var< / span > key-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address key-storage
< span id = "L1503" class = "LineNr" > 1503 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > key-ah, < span class = "Constant" > " a" < / span >
< span id = "L1504" class = "LineNr" > 1504 < / span > < span class = "PreProc" > var< / span > env-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1505" class = "LineNr" > 1505 < / span > < span class = "PreProc" > var< / span > env-ah/< span class = "muRegEbx" > ebx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address env-storage
< span id = "L1506" class = "LineNr" > 1506 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > env-ah, *key-ah, *val-ah
< span id = "L1507" class = "LineNr" > 1507 < / span > < span class = "muComment" > # env = ((a . 3))< / span >
2021-06-16 04:50:13 +00:00
< span id = "L1508" class = "LineNr" > 1508 < / span > < span class = "PreProc" > var< / span > nil-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1509" class = "LineNr" > 1509 < / span > < span class = "PreProc" > var< / span > nil-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address nil-storage
< span id = "L1510" class = "LineNr" > 1510 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > nil-ah
2021-06-23 20:19:20 +00:00
< span id = "L1511" class = "LineNr" > 1511 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > env-ah, *env-ah, *nil-ah
< span id = "L1512" class = "LineNr" > 1512 < / span > < span class = "muComment" > # eval sym(a), env< / span >
< span id = "L1513" class = "LineNr" > 1513 < / span > < span class = "PreProc" > var< / span > tmp-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1514" class = "LineNr" > 1514 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-storage
< span id = "L1515" class = "LineNr" > 1515 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > tmp-ah, < span class = "Constant" > " a" < / span >
< span id = "L1516" class = "LineNr" > 1516 < / span > < span class = "PreProc" > var< / span > trace-storage: trace
< span id = "L1517" class = "LineNr" > 1517 < / span > < span class = "PreProc" > var< / span > trace/< span class = "muRegEdi" > edi< / span > : (addr trace) < span class = "Special" > < -< / span > address trace-storage
< span id = "L1518" class = "LineNr" > 1518 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > trace, < span class = "Constant" > 1< / span > /only-errors, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L1519" class = "LineNr" > 1519 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > tmp-ah, tmp-ah, *env-ah, < span class = "Constant" > 0< / span > /no-globals, trace, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard, < span class = "Constant" > 0< / span > /definitions-created, < span class = "Constant" > 0< / span > /call-number
< span id = "L1520" class = "LineNr" > 1520 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1521" class = "LineNr" > 1521 < / span > < span class = "PreProc" > var< / span > result-type/< span class = "muRegEdx" > edx< / span > : (addr int) < span class = "Special" > < -< / span > get result, < span class = "PreProc" > type< / span >
< span id = "L1522" class = "LineNr" > 1522 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-type, < span class = "Constant" > 1< / span > /number, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1496' > test-evaluate-symbol< / a > /0" < / span >
< span id = "L1523" class = "LineNr" > 1523 < / span > < span class = "PreProc" > var< / span > result-value-addr/< span class = "muRegEax" > eax< / span > : (addr float) < span class = "Special" > < -< / span > get result, number-data
< span id = "L1524" class = "LineNr" > 1524 < / span > < span class = "PreProc" > var< / span > result-value/< span class = "muRegEax" > eax< / span > : int < span class = "Special" > < -< / span > convert *result-value-addr
< span id = "L1525" class = "LineNr" > 1525 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > result-value, < span class = "Constant" > 3< / span > , < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1496' > test-evaluate-symbol< / a > /1" < / span >
< span id = "L1526" class = "LineNr" > 1526 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1527" class = "LineNr" > 1527 < / span >
< span id = "L1528" class = "LineNr" > 1528 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'evaluate.mu.html#L1528' > test-evaluate-quote< / a > < / span > < span class = "Delimiter" > {< / span >
< span id = "L1529" class = "LineNr" > 1529 < / span > < span class = "muComment" > # env = nil< / span >
< span id = "L1530" class = "LineNr" > 1530 < / span > < span class = "PreProc" > var< / span > nil-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1531" class = "LineNr" > 1531 < / span > < span class = "PreProc" > var< / span > nil-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address nil-storage
< span id = "L1532" class = "LineNr" > 1532 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > nil-ah
< span id = "L1533" class = "LineNr" > 1533 < / span > < span class = "muComment" > # eval `a, env< / span >
< span id = "L1534" class = "LineNr" > 1534 < / span > < span class = "PreProc" > var< / span > tmp-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1535" class = "LineNr" > 1535 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-storage
< span id = "L1536" class = "LineNr" > 1536 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > tmp-ah, < span class = "Constant" > " '" < / span >
< span id = "L1537" class = "LineNr" > 1537 < / span > < span class = "PreProc" > var< / span > tmp2-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1538" class = "LineNr" > 1538 < / span > < span class = "PreProc" > var< / span > tmp2-ah/< span class = "muRegEbx" > ebx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp2-storage
< span id = "L1539" class = "LineNr" > 1539 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > tmp2-ah, < span class = "Constant" > " a" < / span >
< span id = "L1540" class = "LineNr" > 1540 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, *tmp-ah, *tmp2-ah
< span id = "L1541" class = "LineNr" > 1541 < / span > < span class = "PreProc" > var< / span > trace-storage: trace
< span id = "L1542" class = "LineNr" > 1542 < / span > < span class = "PreProc" > var< / span > trace/< span class = "muRegEdi" > edi< / span > : (addr trace) < span class = "Special" > < -< / span > address trace-storage
< span id = "L1543" class = "LineNr" > 1543 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > trace, < span class = "Constant" > 1< / span > /only-errors, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L1544" class = "LineNr" > 1544 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > tmp-ah, tmp-ah, *nil-ah, < span class = "Constant" > 0< / span > /no-globals, trace, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard, < span class = "Constant" > 0< / span > /definitions-created, < span class = "Constant" > 0< / span > /call-number
< span id = "L1545" class = "LineNr" > 1545 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1546" class = "LineNr" > 1546 < / span > < span class = "PreProc" > var< / span > result-type/< span class = "muRegEdx" > edx< / span > : (addr int) < span class = "Special" > < -< / span > get result, < span class = "PreProc" > type< / span >
< span id = "L1547" class = "LineNr" > 1547 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-type, < span class = "Constant" > 2< / span > /symbol, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1528' > test-evaluate-quote< / a > /0" < / span >
< span id = "L1548" class = "LineNr" > 1548 < / span > < span class = "PreProc" > var< / span > sym?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > result, < span class = "Constant" > " a" < / span >
< span id = "L1549" class = "LineNr" > 1549 < / span > < a href = '../502test.mu.html#L19' > check< / a > sym?, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1528' > test-evaluate-quote< / a > /1" < / span >
< span id = "L1550" class = "LineNr" > 1550 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1551" class = "LineNr" > 1551 < / span >
< span id = "L1552" class = "LineNr" > 1552 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'evaluate.mu.html#L1552' > test-evaluate-primitive-function< / a > < / span > < span class = "Delimiter" > {< / span >
< span id = "L1553" class = "LineNr" > 1553 < / span > < span class = "PreProc" > var< / span > globals-storage: < a href = 'global.mu.html#L1' > global-table< / a >
< span id = "L1554" class = "LineNr" > 1554 < / span > < span class = "PreProc" > var< / span > globals/< span class = "muRegEdi" > edi< / span > : (addr < a href = 'global.mu.html#L1' > global-table< / a > ) < span class = "Special" > < -< / span > address globals-storage
< span id = "L1555" class = "LineNr" > 1555 < / span > < a href = 'global.mu.html#L14' > initialize-globals< / a > globals
< span id = "L1556" class = "LineNr" > 1556 < / span > < span class = "PreProc" > var< / span > nil-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1557" class = "LineNr" > 1557 < / span > < span class = "PreProc" > var< / span > nil-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address nil-storage
< span id = "L1558" class = "LineNr" > 1558 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > nil-ah
< span id = "L1559" class = "LineNr" > 1559 < / span > < span class = "PreProc" > var< / span > add-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1560" class = "LineNr" > 1560 < / span > < span class = "PreProc" > var< / span > add-ah/< span class = "muRegEbx" > ebx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address add-storage
< span id = "L1561" class = "LineNr" > 1561 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > add-ah, < span class = "Constant" > " +" < / span >
< span id = "L1562" class = "LineNr" > 1562 < / span > < span class = "muComment" > # eval +, nil env< / span >
< span id = "L1563" class = "LineNr" > 1563 < / span > < span class = "PreProc" > var< / span > tmp-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1564" class = "LineNr" > 1564 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-storage
< span id = "L1565" class = "LineNr" > 1565 < / span > < span class = "PreProc" > var< / span > trace-storage: trace
< span id = "L1566" class = "LineNr" > 1566 < / span > < span class = "PreProc" > var< / span > trace/< span class = "muRegEdx" > edx< / span > : (addr trace) < span class = "Special" > < -< / span > address trace-storage
< span id = "L1567" class = "LineNr" > 1567 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > trace, < span class = "Constant" > 1< / span > /only-errors, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L1568" class = "LineNr" > 1568 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > add-ah, tmp-ah, *nil-ah, globals, trace, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard, < span class = "Constant" > 0< / span > /definitions-created, < span class = "Constant" > 0< / span > /call-number
< span id = "L1569" class = "LineNr" > 1569 < / span > < span class = "muComment" > #< / span >
< span id = "L1570" class = "LineNr" > 1570 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1571" class = "LineNr" > 1571 < / span > < span class = "PreProc" > var< / span > result-type/< span class = "muRegEdx" > edx< / span > : (addr int) < span class = "Special" > < -< / span > get result, < span class = "PreProc" > type< / span >
< span id = "L1572" class = "LineNr" > 1572 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-type, < span class = "Constant" > 4< / span > /primitive-function, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1552' > test-evaluate-primitive-function< / a > /0" < / span >
< span id = "L1573" class = "LineNr" > 1573 < / span > < span class = "PreProc" > var< / span > result-value/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get result, index-data
< span id = "L1574" class = "LineNr" > 1574 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-value, < span class = "Constant" > 1< / span > /add, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1552' > test-evaluate-primitive-function< / a > /1" < / span >
< span id = "L1575" class = "LineNr" > 1575 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1576" class = "LineNr" > 1576 < / span >
< span id = "L1577" class = "LineNr" > 1577 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'evaluate.mu.html#L1577' > test-evaluate-primitive-function-call< / a > < / span > < span class = "Delimiter" > {< / span >
< span id = "L1578" class = "LineNr" > 1578 < / span > < span class = "PreProc" > var< / span > t-storage: trace
< span id = "L1579" class = "LineNr" > 1579 < / span > < span class = "PreProc" > var< / span > t/< span class = "muRegEdi" > edi< / span > : (addr trace) < span class = "Special" > < -< / span > address t-storage
< span id = "L1580" class = "LineNr" > 1580 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > t, < span class = "Constant" > 0x100< / span > /max-depth, < span class = "Constant" > 0x100< / span > /capacity, < span class = "Constant" > 0< / span > /visible < span class = "muComment" > # we don't use trace UI< / span >
< span id = "L1581" class = "LineNr" > 1581 < / span > < span class = "muComment" > #< / span >
< span id = "L1582" class = "LineNr" > 1582 < / span > < span class = "PreProc" > var< / span > nil-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1583" class = "LineNr" > 1583 < / span > < span class = "PreProc" > var< / span > nil-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address nil-storage
< span id = "L1584" class = "LineNr" > 1584 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > nil-ah
< span id = "L1585" class = "LineNr" > 1585 < / span > < span class = "PreProc" > var< / span > one-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1586" class = "LineNr" > 1586 < / span > < span class = "PreProc" > var< / span > one-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address one-storage
< span id = "L1587" class = "LineNr" > 1587 < / span > < a href = 'cell.mu.html#L84' > new-integer< / a > one-ah, < span class = "Constant" > 1< / span >
< span id = "L1588" class = "LineNr" > 1588 < / span > < span class = "PreProc" > var< / span > add-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1589" class = "LineNr" > 1589 < / span > < span class = "PreProc" > var< / span > add-ah/< span class = "muRegEbx" > ebx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address add-storage
< span id = "L1590" class = "LineNr" > 1590 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > add-ah, < span class = "Constant" > " +" < / span >
< span id = "L1591" class = "LineNr" > 1591 < / span > < span class = "muComment" > # input is (+ 1 1)< / span >
< span id = "L1592" class = "LineNr" > 1592 < / span > < span class = "PreProc" > var< / span > tmp-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1593" class = "LineNr" > 1593 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-storage
< span id = "L1594" class = "LineNr" > 1594 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, *one-ah, *nil-ah
< span id = "L1595" class = "LineNr" > 1595 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, *one-ah, *tmp-ah
< span id = "L1596" class = "LineNr" > 1596 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, *add-ah, *tmp-ah
< span id = "L1597" class = "LineNr" > 1597 < / span > < span class = "CommentedCode" > #? dump-cell tmp-ah< / span >
< span id = "L1598" class = "LineNr" > 1598 < / span > < span class = "muComment" > #< / span >
< span id = "L1599" class = "LineNr" > 1599 < / span > < span class = "PreProc" > var< / span > globals-storage: < a href = 'global.mu.html#L1' > global-table< / a >
< span id = "L1600" class = "LineNr" > 1600 < / span > < span class = "PreProc" > var< / span > globals/< span class = "muRegEdx" > edx< / span > : (addr < a href = 'global.mu.html#L1' > global-table< / a > ) < span class = "Special" > < -< / span > address globals-storage
< span id = "L1601" class = "LineNr" > 1601 < / span > < a href = 'global.mu.html#L14' > initialize-globals< / a > globals
< span id = "L1602" class = "LineNr" > 1602 < / span > < span class = "muComment" > #< / span >
< span id = "L1603" class = "LineNr" > 1603 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > tmp-ah, tmp-ah, *nil-ah, globals, t, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard, < span class = "Constant" > 0< / span > /definitions-created, < span class = "Constant" > 0< / span > /call-number
< span id = "L1604" class = "LineNr" > 1604 < / span > < span class = "CommentedCode" > #? dump-trace t< / span >
< span id = "L1605" class = "LineNr" > 1605 < / span > < span class = "muComment" > #< / span >
< span id = "L1606" class = "LineNr" > 1606 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1607" class = "LineNr" > 1607 < / span > < span class = "PreProc" > var< / span > result-type/< span class = "muRegEdx" > edx< / span > : (addr int) < span class = "Special" > < -< / span > get result, < span class = "PreProc" > type< / span >
< span id = "L1608" class = "LineNr" > 1608 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-type, < span class = "Constant" > 1< / span > /number, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1577' > test-evaluate-primitive-function-call< / a > /0" < / span >
< span id = "L1609" class = "LineNr" > 1609 < / span > < span class = "PreProc" > var< / span > result-value-addr/< span class = "muRegEax" > eax< / span > : (addr float) < span class = "Special" > < -< / span > get result, number-data
< span id = "L1610" class = "LineNr" > 1610 < / span > < span class = "PreProc" > var< / span > result-value/< span class = "muRegEax" > eax< / span > : int < span class = "Special" > < -< / span > convert *result-value-addr
< span id = "L1611" class = "LineNr" > 1611 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > result-value, < span class = "Constant" > 2< / span > , < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1577' > test-evaluate-primitive-function-call< / a > /1" < / span >
< span id = "L1612" class = "LineNr" > 1612 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1613" class = "LineNr" > 1613 < / span >
< span id = "L1614" class = "LineNr" > 1614 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'evaluate.mu.html#L1614' > test-evaluate-backquote< / a > < / span > < span class = "Delimiter" > {< / span >
< span id = "L1615" class = "LineNr" > 1615 < / span > < span class = "muComment" > # env = nil< / span >
< span id = "L1616" class = "LineNr" > 1616 < / span > < span class = "PreProc" > var< / span > nil-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1617" class = "LineNr" > 1617 < / span > < span class = "PreProc" > var< / span > nil-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address nil-storage
< span id = "L1618" class = "LineNr" > 1618 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > nil-ah
< span id = "L1619" class = "LineNr" > 1619 < / span > < span class = "muComment" > # eval `a, env< / span >
< span id = "L1620" class = "LineNr" > 1620 < / span > < span class = "PreProc" > var< / span > tmp-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1621" class = "LineNr" > 1621 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-storage
< span id = "L1622" class = "LineNr" > 1622 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > tmp-ah, < span class = "Constant" > " `" < / span >
< span id = "L1623" class = "LineNr" > 1623 < / span > < span class = "PreProc" > var< / span > tmp2-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1624" class = "LineNr" > 1624 < / span > < span class = "PreProc" > var< / span > tmp2-ah/< span class = "muRegEbx" > ebx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp2-storage
< span id = "L1625" class = "LineNr" > 1625 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > tmp2-ah, < span class = "Constant" > " a" < / span >
< span id = "L1626" class = "LineNr" > 1626 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, *tmp-ah, *tmp2-ah
< span id = "L1627" class = "LineNr" > 1627 < / span > clear-object tmp2-ah
< span id = "L1628" class = "LineNr" > 1628 < / span > < span class = "PreProc" > var< / span > trace-storage: trace
< span id = "L1629" class = "LineNr" > 1629 < / span > < span class = "PreProc" > var< / span > trace/< span class = "muRegEdi" > edi< / span > : (addr trace) < span class = "Special" > < -< / span > address trace-storage
< span id = "L1630" class = "LineNr" > 1630 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > trace, < span class = "Constant" > 1< / span > /only-errors, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L1631" class = "LineNr" > 1631 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > tmp-ah, tmp2-ah, *nil-ah, < span class = "Constant" > 0< / span > /no-globals, trace, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard, < span class = "Constant" > 0< / span > /definitions-created, < span class = "Constant" > 0< / span > /call-number
< span id = "L1632" class = "LineNr" > 1632 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp2-ah
< span id = "L1633" class = "LineNr" > 1633 < / span > < span class = "PreProc" > var< / span > result-type/< span class = "muRegEdx" > edx< / span > : (addr int) < span class = "Special" > < -< / span > get result, < span class = "PreProc" > type< / span >
< span id = "L1634" class = "LineNr" > 1634 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-type, < span class = "Constant" > 2< / span > /symbol, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1614' > test-evaluate-backquote< / a > /0" < / span >
< span id = "L1635" class = "LineNr" > 1635 < / span > < span class = "PreProc" > var< / span > sym?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > result, < span class = "Constant" > " a" < / span >
< span id = "L1636" class = "LineNr" > 1636 < / span > < a href = '../502test.mu.html#L19' > check< / a > sym?, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1614' > test-evaluate-backquote< / a > /1" < / span >
< span id = "L1637" class = "LineNr" > 1637 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1638" class = "LineNr" > 1638 < / span >
< span id = "L1639" class = "LineNr" > 1639 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'evaluate.mu.html#L1639' > evaluate-backquote< / a > < / span > _in-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), _out-ah: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), env-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > ), globals: (addr < a href = 'global.mu.html#L1' > global-table< / a > ), trace: (addr trace), inner-screen-var: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), inner-keyboard-var: (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ), definitions-created: (addr stream int), call-number: (addr int) < span class = "Delimiter" > {< / span >
< span id = "L1640" class = "LineNr" > 1640 < / span > < span class = "muComment" > # stack overflow? # disable when enabling Really-debug-print< / span >
< span id = "L1641" class = "LineNr" > 1641 < / span > < span class = "CommentedCode" > #? dump-cell-from-cursor-over-full-screen _in-ah< / span >
< span id = "L1642" class = "LineNr" > 1642 < / span > < a href = '../315stack-debug.subx.html#L5' > check-stack< / a >
< span id = "L1643" class = "LineNr" > 1643 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1644" class = "LineNr" > 1644 < / span > < span class = "PreProc" > var< / span > inner-screen-var/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy inner-screen-var
< span id = "L1645" class = "LineNr" > 1645 < / span > compare inner-screen-var, < span class = "Constant" > 0< / span >
< span id = "L1646" class = "LineNr" > 1646 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1647" class = "LineNr" > 1647 < / span > < span class = "PreProc" > var< / span > inner-screen-var-addr/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *inner-screen-var
< span id = "L1648" class = "LineNr" > 1648 < / span > compare inner-screen-var-addr, < span class = "Constant" > 0< / span >
< span id = "L1649" class = "LineNr" > 1649 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1650" class = "LineNr" > 1650 < / span > < span class = "muComment" > # if inner-screen-var exists, we're probably not in a test< / span >
< span id = "L1651" class = "LineNr" > 1651 < / span > < a href = '../315stack-debug.subx.html#L26' > show-stack-state< / a >
< span id = "L1652" class = "LineNr" > 1652 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1653" class = "LineNr" > 1653 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L1654" class = "LineNr" > 1654 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1655" class = "LineNr" > 1655 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L1656" class = "LineNr" > 1656 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L1657" class = "LineNr" > 1657 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1658" class = "LineNr" > 1658 < / span > < span class = "PreProc" > return< / span >
< span id = "L1659" class = "LineNr" > 1659 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1660" class = "LineNr" > 1660 < / span > < a href = 'trace.mu.html#L239' > trace-lower< / a > trace
< span id = "L1661" class = "LineNr" > 1661 < / span > < span class = "PreProc" > var< / span > in-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _in-ah
< span id = "L1662" class = "LineNr" > 1662 < / span > < span class = "PreProc" > var< / span > in/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *in-ah
< span id = "L1663" class = "LineNr" > 1663 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1664" class = "LineNr" > 1664 < / span > < span class = "PreProc" > var< / span > < a href = 'print.mu.html#L347' > nil?< / a > /< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > in
< span id = "L1665" class = "LineNr" > 1665 < / span > compare < a href = 'print.mu.html#L347' > nil?< / a > , < span class = "Constant" > 0< / span > /false
< span id = "L1666" class = "LineNr" > 1666 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1667" class = "LineNr" > 1667 < / span > < span class = "muComment" > # nil is a literal< / span >
< span id = "L1668" class = "LineNr" > 1668 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " backquote nil" < / span >
< span id = "L1669" class = "LineNr" > 1669 < / span > copy-object _in-ah, _out-ah
< span id = "L1670" class = "LineNr" > 1670 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1671" class = "LineNr" > 1671 < / span > < span class = "PreProc" > return< / span >
< span id = "L1672" class = "LineNr" > 1672 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1673" class = "LineNr" > 1673 < / span > < span class = "PreProc" > var< / span > in-type/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get in, < span class = "PreProc" > type< / span >
< span id = "L1674" class = "LineNr" > 1674 < / span > compare *in-type, < span class = "Constant" > 0< / span > /pair
< span id = "L1675" class = "LineNr" > 1675 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1676" class = "LineNr" > 1676 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1677" class = "LineNr" > 1677 < / span > < span class = "muComment" > # copy non-pairs directly< / span >
< span id = "L1678" class = "LineNr" > 1678 < / span > < span class = "muComment" > # TODO: streams might need to be copied< / span >
< span id = "L1679" class = "LineNr" > 1679 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " backquote atom" < / span >
< span id = "L1680" class = "LineNr" > 1680 < / span > copy-object _in-ah, _out-ah
< span id = "L1681" class = "LineNr" > 1681 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1682" class = "LineNr" > 1682 < / span > < span class = "PreProc" > return< / span >
< span id = "L1683" class = "LineNr" > 1683 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1684" class = "LineNr" > 1684 < / span > < span class = "muComment" > # 'in' is a pair< / span >
< span id = "L1685" class = "LineNr" > 1685 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " ()" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1686" class = "LineNr" > 1686 < / span > < span class = "PreProc" > var< / span > in-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _in-ah
< span id = "L1687" class = "LineNr" > 1687 < / span > < span class = "PreProc" > var< / span > _in/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *in-ah
< span id = "L1688" class = "LineNr" > 1688 < / span > < span class = "PreProc" > var< / span > in/< span class = "muRegEbx" > ebx< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _in
< span id = "L1689" class = "LineNr" > 1689 < / span > < span class = "PreProc" > var< / span > in-left-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, left
< span id = "L1690" class = "LineNr" > 1690 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " 10" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1691" class = "LineNr" > 1691 < / span > < span class = "muComment" > # check for unquote< / span >
< span id = "L1692" class = "LineNr" > 1692 < / span > $evaluate-backquote:unquote: < span class = "Delimiter" > {< / span >
< span id = "L1693" class = "LineNr" > 1693 < / span > < span class = "PreProc" > var< / span > in-left/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *in-left-ah
< span id = "L1694" class = "LineNr" > 1694 < / span > < span class = "PreProc" > var< / span > unquote?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > in-left, < span class = "Constant" > " ," < / span >
< span id = "L1695" class = "LineNr" > 1695 < / span > compare unquote?, < span class = "Constant" > 0< / span > /false
< span id = "L1696" class = "LineNr" > 1696 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1697" class = "LineNr" > 1697 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " unquote" < / span >
< span id = "L1698" class = "LineNr" > 1698 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L1699" class = "LineNr" > 1699 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " ," < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1700" class = "LineNr" > 1700 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > rest-ah, _out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L1701" class = "LineNr" > 1701 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " ,)" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1702" class = "LineNr" > 1702 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1703" class = "LineNr" > 1703 < / span > < span class = "PreProc" > return< / span >
< span id = "L1704" class = "LineNr" > 1704 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1705" class = "LineNr" > 1705 < / span > < span class = "muComment" > # check for unquote-splice in in-left< / span >
< span id = "L1706" class = "LineNr" > 1706 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " 11" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1707" class = "LineNr" > 1707 < / span > < span class = "PreProc" > var< / span > out-ah/< span class = "muRegEdi" > edi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _out-ah
< span id = "L1708" class = "LineNr" > 1708 < / span > $evaluate-backquote:unquote-splice: < span class = "Delimiter" > {< / span >
< span id = "L1709" class = "LineNr" > 1709 < / span > < span class = "CommentedCode" > #? dump-cell-from-cursor-over-full-screen in-left-ah< / span >
< span id = "L1710" class = "LineNr" > 1710 < / span > < span class = "PreProc" > var< / span > in-left/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *in-left-ah
< span id = "L1711" class = "LineNr" > 1711 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1712" class = "LineNr" > 1712 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " 12" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1713" class = "LineNr" > 1713 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1714" class = "LineNr" > 1714 < / span > < span class = "PreProc" > var< / span > in-left-is-nil?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > in-left
< span id = "L1715" class = "LineNr" > 1715 < / span > compare in-left-is-nil?, < span class = "Constant" > 0< / span > /false
< span id = "L1716" class = "LineNr" > 1716 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1717" class = "LineNr" > 1717 < / span > < span class = "PreProc" > break-if-!=< / span > $evaluate-backquote:unquote-splice
< span id = "L1718" class = "LineNr" > 1718 < / span > < span class = "PreProc" > var< / span > in-left-type/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get in-left, < span class = "PreProc" > type< / span >
< span id = "L1719" class = "LineNr" > 1719 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " 13" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1720" class = "LineNr" > 1720 < / span > compare *in-left-type, < span class = "Constant" > 0< / span > /pair
< span id = "L1721" class = "LineNr" > 1721 < / span > < span class = "PreProc" > break-if-!=< / span > $evaluate-backquote:unquote-splice
< span id = "L1722" class = "LineNr" > 1722 < / span > < span class = "PreProc" > var< / span > in-left-left-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in-left, left
< span id = "L1723" class = "LineNr" > 1723 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " 14" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1724" class = "LineNr" > 1724 < / span > < span class = "PreProc" > var< / span > in-left-left/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *in-left-left-ah
< span id = "L1725" class = "LineNr" > 1725 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " 15" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1726" class = "LineNr" > 1726 < / span > < span class = "PreProc" > var< / span > in-left-left-type/< span class = "muRegEcx" > ecx< / span > : (addr int) < span class = "Special" > < -< / span > get in-left-left, < span class = "PreProc" > type< / span >
< span id = "L1727" class = "LineNr" > 1727 < / span > < span class = "PreProc" > var< / span > left-is-unquote-splice?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > in-left-left, < span class = "Constant" > " ,@" < / span >
< span id = "L1728" class = "LineNr" > 1728 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " 16" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1729" class = "LineNr" > 1729 < / span > compare left-is-unquote-splice?, < span class = "Constant" > 0< / span > /false
< span id = "L1730" class = "LineNr" > 1730 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1731" class = "LineNr" > 1731 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1732" class = "LineNr" > 1732 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " 17" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1733" class = "LineNr" > 1733 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " unquote-splice" < / span >
< span id = "L1734" class = "LineNr" > 1734 < / span > < span class = "PreProc" > var< / span > in-unquote-payload-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in-left, right
< span id = "L1735" class = "LineNr" > 1735 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > in-unquote-payload-ah, out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L1736" class = "LineNr" > 1736 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L1737" class = "LineNr" > 1737 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1738" class = "LineNr" > 1738 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L1739" class = "LineNr" > 1739 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L1740" class = "LineNr" > 1740 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1741" class = "LineNr" > 1741 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1742" class = "LineNr" > 1742 < / span > < span class = "PreProc" > return< / span >
< span id = "L1743" class = "LineNr" > 1743 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1744" class = "LineNr" > 1744 < / span > < span class = "muComment" > # while (*out-ah != null) out-ah = cdr(out-ah)< / span >
< span id = "L1745" class = "LineNr" > 1745 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1746" class = "LineNr" > 1746 < / span > < span class = "PreProc" > var< / span > out/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *out-ah
< span id = "L1747" class = "LineNr" > 1747 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1748" class = "LineNr" > 1748 < / span > < span class = "PreProc" > var< / span > done?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > out
< span id = "L1749" class = "LineNr" > 1749 < / span > compare done?, < span class = "Constant" > 0< / span > /false
< span id = "L1750" class = "LineNr" > 1750 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1751" class = "LineNr" > 1751 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L1752" class = "LineNr" > 1752 < / span > out-ah < span class = "Special" > < -< / span > get out, right
< span id = "L1753" class = "LineNr" > 1753 < / span > < span class = "PreProc" > loop< / span >
< span id = "L1754" class = "LineNr" > 1754 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1755" class = "LineNr" > 1755 < / span > < span class = "muComment" > # append result of in-right< / span >
< span id = "L1756" class = "LineNr" > 1756 < / span > < span class = "PreProc" > var< / span > in-right-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L1757" class = "LineNr" > 1757 < / span > < a href = 'evaluate.mu.html#L1639' > evaluate-backquote< / a > in-right-ah, out-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L1758" class = "LineNr" > 1758 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1759" class = "LineNr" > 1759 < / span > < span class = "PreProc" > return< / span >
< span id = "L1760" class = "LineNr" > 1760 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1761" class = "LineNr" > 1761 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " 19" < / span > , < span class = "Constant" > 4< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1762" class = "LineNr" > 1762 < / span > < span class = "muComment" > # otherwise continue copying< / span >
< span id = "L1763" class = "LineNr" > 1763 < / span > < a href = 'trace.mu.html#L185' > trace-text< / a > trace, < span class = "Constant" > " eval" < / span > , < span class = "Constant" > " backquote: copy" < / span >
< span id = "L1764" class = "LineNr" > 1764 < / span > < span class = "PreProc" > var< / span > out-ah/< span class = "muRegEdi" > edi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy _out-ah
< span id = "L1765" class = "LineNr" > 1765 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > out-ah
< span id = "L1766" class = "LineNr" > 1766 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " 20" < / span > , < span class = "Constant" > 7< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1767" class = "LineNr" > 1767 < / span > < span class = "CommentedCode" > #? dump-cell-from-cursor-over-full-screen out-ah< / span >
< span id = "L1768" class = "LineNr" > 1768 < / span > < span class = "PreProc" > var< / span > out/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *out-ah
< span id = "L1769" class = "LineNr" > 1769 < / span > < span class = "PreProc" > var< / span > out-left-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get out, left
< span id = "L1770" class = "LineNr" > 1770 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " `(l" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1771" class = "LineNr" > 1771 < / span > < a href = 'evaluate.mu.html#L1639' > evaluate-backquote< / a > in-left-ah, out-left-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L1772" class = "LineNr" > 1772 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " `r)" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1773" class = "LineNr" > 1773 < / span > < span class = "muComment" > # errors? skip< / span >
< span id = "L1774" class = "LineNr" > 1774 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1775" class = "LineNr" > 1775 < / span > < span class = "PreProc" > var< / span > error?/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'trace.mu.html#L94' > has-errors?< / a > trace
< span id = "L1776" class = "LineNr" > 1776 < / span > compare error?, < span class = "Constant" > 0< / span > /false
< span id = "L1777" class = "LineNr" > 1777 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L1778" class = "LineNr" > 1778 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1779" class = "LineNr" > 1779 < / span > < span class = "PreProc" > return< / span >
< span id = "L1780" class = "LineNr" > 1780 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1781" class = "LineNr" > 1781 < / span > < span class = "PreProc" > var< / span > in-right-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get in, right
< span id = "L1782" class = "LineNr" > 1782 < / span > < span class = "PreProc" > var< / span > out-right-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get out, right
< span id = "L1783" class = "LineNr" > 1783 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " `r(" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1784" class = "LineNr" > 1784 < / span > < a href = 'evaluate.mu.html#L1639' > evaluate-backquote< / a > in-right-ah, out-right-ah, env-h, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number
< span id = "L1785" class = "LineNr" > 1785 < / span > < a href = '../315stack-debug.subx.html#L56' > debug-print< / a > < span class = "Constant" > " `r)" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L1786" class = "LineNr" > 1786 < / span > < a href = 'trace.mu.html#L250' > trace-higher< / a > trace
< span id = "L1787" class = "LineNr" > 1787 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1788" class = "LineNr" > 1788 < / span >
< span id = "L1789" class = "LineNr" > 1789 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'evaluate.mu.html#L1789' > test-evaluate-backquote-list< / a > < / span > < span class = "Delimiter" > {< / span >
< span id = "L1790" class = "LineNr" > 1790 < / span > < span class = "PreProc" > var< / span > nil-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1791" class = "LineNr" > 1791 < / span > < span class = "PreProc" > var< / span > nil-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address nil-storage
< span id = "L1792" class = "LineNr" > 1792 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > nil-ah
< span id = "L1793" class = "LineNr" > 1793 < / span > < span class = "PreProc" > var< / span > backquote-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1794" class = "LineNr" > 1794 < / span > < span class = "PreProc" > var< / span > backquote-ah/< span class = "muRegEdx" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address backquote-storage
< span id = "L1795" class = "LineNr" > 1795 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > backquote-ah, < span class = "Constant" > " `" < / span >
< span id = "L1796" class = "LineNr" > 1796 < / span > < span class = "muComment" > # input is `(a b)< / span >
< span id = "L1797" class = "LineNr" > 1797 < / span > < span class = "PreProc" > var< / span > a-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1798" class = "LineNr" > 1798 < / span > < span class = "PreProc" > var< / span > a-ah/< span class = "muRegEbx" > ebx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address a-storage
< span id = "L1799" class = "LineNr" > 1799 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > a-ah, < span class = "Constant" > " a" < / span >
< span id = "L1800" class = "LineNr" > 1800 < / span > < span class = "PreProc" > var< / span > b-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1801" class = "LineNr" > 1801 < / span > < span class = "PreProc" > var< / span > b-ah/< span class = "muRegEsi" > esi< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address b-storage
< span id = "L1802" class = "LineNr" > 1802 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > b-ah, < span class = "Constant" > " b" < / span >
< span id = "L1803" class = "LineNr" > 1803 < / span > < span class = "PreProc" > var< / span > tmp-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1804" class = "LineNr" > 1804 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-storage
< span id = "L1805" class = "LineNr" > 1805 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, *b-ah, *nil-ah
< span id = "L1806" class = "LineNr" > 1806 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, *a-ah, *tmp-ah
< span id = "L1807" class = "LineNr" > 1807 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, *backquote-ah, *tmp-ah
< span id = "L1808" class = "LineNr" > 1808 < / span > < span class = "muComment" > #< / span >
< span id = "L1809" class = "LineNr" > 1809 < / span > < span class = "PreProc" > var< / span > trace-storage: trace
< span id = "L1810" class = "LineNr" > 1810 < / span > < span class = "PreProc" > var< / span > trace/< span class = "muRegEdi" > edi< / span > : (addr trace) < span class = "Special" > < -< / span > address trace-storage
< span id = "L1811" class = "LineNr" > 1811 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > trace, < span class = "Constant" > 1< / span > /only-errors, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L1812" class = "LineNr" > 1812 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > tmp-ah, tmp-ah, *nil-ah, < span class = "Constant" > 0< / span > /no-globals, trace, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard, < span class = "Constant" > 0< / span > /definitions-created, < span class = "Constant" > 0< / span > /call-number
< span id = "L1813" class = "LineNr" > 1813 < / span > < span class = "muComment" > # result is (a b)< / span >
< span id = "L1814" class = "LineNr" > 1814 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1815" class = "LineNr" > 1815 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1816" class = "LineNr" > 1816 < / span > < span class = "PreProc" > var< / span > result-type/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get result, < span class = "PreProc" > type< / span >
< span id = "L1817" class = "LineNr" > 1817 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-type, < span class = "Constant" > 0< / span > /pair, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1789' > test-evaluate-backquote-list< / a > /0" < / span >
< span id = "L1818" class = "LineNr" > 1818 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1819" class = "LineNr" > 1819 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1820" class = "LineNr" > 1820 < / span > < span class = "PreProc" > var< / span > a1-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get result, left
< span id = "L1821" class = "LineNr" > 1821 < / span > < span class = "PreProc" > var< / span > a1/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *a1-ah
< span id = "L1822" class = "LineNr" > 1822 < / span > < span class = "PreProc" > var< / span > check1/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > a1, < span class = "Constant" > " a" < / span >
< span id = "L1823" class = "LineNr" > 1823 < / span > < a href = '../502test.mu.html#L19' > check< / a > check1, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1789' > test-evaluate-backquote-list< / a > /1" < / span >
< span id = "L1824" class = "LineNr" > 1824 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1825" class = "LineNr" > 1825 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get result, right
< span id = "L1826" class = "LineNr" > 1826 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L1827" class = "LineNr" > 1827 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1828" class = "LineNr" > 1828 < / span > < span class = "PreProc" > var< / span > a2-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L1829" class = "LineNr" > 1829 < / span > < span class = "PreProc" > var< / span > a2/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *a2-ah
< span id = "L1830" class = "LineNr" > 1830 < / span > < span class = "PreProc" > var< / span > check2/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > a2, < span class = "Constant" > " b" < / span >
< span id = "L1831" class = "LineNr" > 1831 < / span > < a href = '../502test.mu.html#L19' > check< / a > check2, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1789' > test-evaluate-backquote-list< / a > /2" < / span >
< span id = "L1832" class = "LineNr" > 1832 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1833" class = "LineNr" > 1833 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, right
< span id = "L1834" class = "LineNr" > 1834 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L1835" class = "LineNr" > 1835 < / span > < span class = "PreProc" > var< / span > check3/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > rest
< span id = "L1836" class = "LineNr" > 1836 < / span > < a href = '../502test.mu.html#L19' > check< / a > check3, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1789' > test-evaluate-backquote-list< / a > /3" < / span >
< span id = "L1837" class = "LineNr" > 1837 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1838" class = "LineNr" > 1838 < / span >
< span id = "L1839" class = "LineNr" > 1839 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'evaluate.mu.html#L1839' > test-evaluate-backquote-list-with-unquote< / a > < / span > < span class = "Delimiter" > {< / span >
< span id = "L1840" class = "LineNr" > 1840 < / span > < span class = "PreProc" > var< / span > nil-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1841" class = "LineNr" > 1841 < / span > < span class = "PreProc" > var< / span > nil-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address nil-h
< span id = "L1842" class = "LineNr" > 1842 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > nil-ah
< span id = "L1843" class = "LineNr" > 1843 < / span > < span class = "PreProc" > var< / span > backquote-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1844" class = "LineNr" > 1844 < / span > < span class = "PreProc" > var< / span > backquote-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address backquote-h
< span id = "L1845" class = "LineNr" > 1845 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > backquote-ah, < span class = "Constant" > " `" < / span >
< span id = "L1846" class = "LineNr" > 1846 < / span > < span class = "PreProc" > var< / span > unquote-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1847" class = "LineNr" > 1847 < / span > < span class = "PreProc" > var< / span > unquote-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address unquote-h
< span id = "L1848" class = "LineNr" > 1848 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > unquote-ah, < span class = "Constant" > " ," < / span >
< span id = "L1849" class = "LineNr" > 1849 < / span > < span class = "PreProc" > var< / span > a-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1850" class = "LineNr" > 1850 < / span > < span class = "PreProc" > var< / span > a-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address a-h
< span id = "L1851" class = "LineNr" > 1851 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > a-ah, < span class = "Constant" > " a" < / span >
< span id = "L1852" class = "LineNr" > 1852 < / span > < span class = "PreProc" > var< / span > b-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1853" class = "LineNr" > 1853 < / span > < span class = "PreProc" > var< / span > b-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address b-h
< span id = "L1854" class = "LineNr" > 1854 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > b-ah, < span class = "Constant" > " b" < / span >
< span id = "L1855" class = "LineNr" > 1855 < / span > < span class = "muComment" > # env = ((b . 3))< / span >
< span id = "L1856" class = "LineNr" > 1856 < / span > < span class = "PreProc" > var< / span > val-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1857" class = "LineNr" > 1857 < / span > < span class = "PreProc" > var< / span > val-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address val-h
< span id = "L1858" class = "LineNr" > 1858 < / span > < a href = 'cell.mu.html#L84' > new-integer< / a > val-ah, < span class = "Constant" > 3< / span >
< span id = "L1859" class = "LineNr" > 1859 < / span > < span class = "PreProc" > var< / span > env-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1860" class = "LineNr" > 1860 < / span > < span class = "PreProc" > var< / span > env-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address env-h
< span id = "L1861" class = "LineNr" > 1861 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > env-ah, b-h, val-h
< span id = "L1862" class = "LineNr" > 1862 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > env-ah, env-h, nil-h
< span id = "L1863" class = "LineNr" > 1863 < / span > < span class = "muComment" > # input is `(a ,b)< / span >
< span id = "L1864" class = "LineNr" > 1864 < / span > < span class = "PreProc" > var< / span > tmp-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1865" class = "LineNr" > 1865 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-h
< span id = "L1866" class = "LineNr" > 1866 < / span > < span class = "muComment" > # tmp = cons(unquote, b)< / span >
< span id = "L1867" class = "LineNr" > 1867 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, unquote-h, b-h
< span id = "L1868" class = "LineNr" > 1868 < / span > < span class = "muComment" > # tmp = cons(tmp, nil)< / span >
< span id = "L1869" class = "LineNr" > 1869 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, tmp-h, nil-h
< span id = "L1870" class = "LineNr" > 1870 < / span > < span class = "muComment" > # tmp = cons(a, tmp)< / span >
< span id = "L1871" class = "LineNr" > 1871 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, a-h, tmp-h
< span id = "L1872" class = "LineNr" > 1872 < / span > < span class = "muComment" > # tmp = cons(backquote, tmp)< / span >
< span id = "L1873" class = "LineNr" > 1873 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, backquote-h, tmp-h
< span id = "L1874" class = "LineNr" > 1874 < / span > < span class = "muComment" > #< / span >
< span id = "L1875" class = "LineNr" > 1875 < / span > < span class = "PreProc" > var< / span > trace-storage: trace
< span id = "L1876" class = "LineNr" > 1876 < / span > < span class = "PreProc" > var< / span > trace/< span class = "muRegEdi" > edi< / span > : (addr trace) < span class = "Special" > < -< / span > address trace-storage
< span id = "L1877" class = "LineNr" > 1877 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > trace, < span class = "Constant" > 1< / span > /only-errors, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L1878" class = "LineNr" > 1878 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > tmp-ah, tmp-ah, env-h, < span class = "Constant" > 0< / span > /no-globals, trace, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard, < span class = "Constant" > 0< / span > /definitions-created, < span class = "Constant" > 0< / span > /call-number
< span id = "L1879" class = "LineNr" > 1879 < / span > < span class = "muComment" > # result is (a 3)< / span >
< span id = "L1880" class = "LineNr" > 1880 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1881" class = "LineNr" > 1881 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1882" class = "LineNr" > 1882 < / span > < span class = "PreProc" > var< / span > result-type/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get result, < span class = "PreProc" > type< / span >
< span id = "L1883" class = "LineNr" > 1883 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-type, < span class = "Constant" > 0< / span > /pair, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1839' > test-evaluate-backquote-list-with-unquote< / a > /0" < / span >
< span id = "L1884" class = "LineNr" > 1884 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1885" class = "LineNr" > 1885 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1886" class = "LineNr" > 1886 < / span > < span class = "PreProc" > var< / span > a1-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get result, left
< span id = "L1887" class = "LineNr" > 1887 < / span > < span class = "PreProc" > var< / span > a1/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *a1-ah
< span id = "L1888" class = "LineNr" > 1888 < / span > < span class = "PreProc" > var< / span > check1/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > a1, < span class = "Constant" > " a" < / span >
< span id = "L1889" class = "LineNr" > 1889 < / span > < a href = '../502test.mu.html#L19' > check< / a > check1, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1839' > test-evaluate-backquote-list-with-unquote< / a > /1" < / span >
< span id = "L1890" class = "LineNr" > 1890 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1891" class = "LineNr" > 1891 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get result, right
< span id = "L1892" class = "LineNr" > 1892 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L1893" class = "LineNr" > 1893 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1894" class = "LineNr" > 1894 < / span > < span class = "PreProc" > var< / span > a2-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L1895" class = "LineNr" > 1895 < / span > < span class = "PreProc" > var< / span > a2/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *a2-ah
< span id = "L1896" class = "LineNr" > 1896 < / span > < span class = "PreProc" > var< / span > a2-value-addr/< span class = "muRegEax" > eax< / span > : (addr float) < span class = "Special" > < -< / span > get a2, number-data
< span id = "L1897" class = "LineNr" > 1897 < / span > < span class = "PreProc" > var< / span > a2-value/< span class = "muRegEax" > eax< / span > : int < span class = "Special" > < -< / span > convert *a2-value-addr
< span id = "L1898" class = "LineNr" > 1898 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > a2-value, < span class = "Constant" > 3< / span > , < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1839' > test-evaluate-backquote-list-with-unquote< / a > /2" < / span >
< span id = "L1899" class = "LineNr" > 1899 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1900" class = "LineNr" > 1900 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, right
< span id = "L1901" class = "LineNr" > 1901 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L1902" class = "LineNr" > 1902 < / span > < span class = "PreProc" > var< / span > check3/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > rest
< span id = "L1903" class = "LineNr" > 1903 < / span > < a href = '../502test.mu.html#L19' > check< / a > check3, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1839' > test-evaluate-backquote-list-with-unquote< / a > /3" < / span >
< span id = "L1904" class = "LineNr" > 1904 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1905" class = "LineNr" > 1905 < / span >
< span id = "L1906" class = "LineNr" > 1906 < / span > < span class = "PreProc" > fn< / span > < span class = "muTest" > < a href = 'evaluate.mu.html#L1906' > test-evaluate-backquote-list-with-unquote-splice< / a > < / span > < span class = "Delimiter" > {< / span >
< span id = "L1907" class = "LineNr" > 1907 < / span > < span class = "PreProc" > var< / span > nil-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1908" class = "LineNr" > 1908 < / span > < span class = "PreProc" > var< / span > nil-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address nil-h
< span id = "L1909" class = "LineNr" > 1909 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > nil-ah
< span id = "L1910" class = "LineNr" > 1910 < / span > < span class = "PreProc" > var< / span > backquote-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1911" class = "LineNr" > 1911 < / span > < span class = "PreProc" > var< / span > backquote-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address backquote-h
< span id = "L1912" class = "LineNr" > 1912 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > backquote-ah, < span class = "Constant" > " `" < / span >
< span id = "L1913" class = "LineNr" > 1913 < / span > < span class = "PreProc" > var< / span > unquote-splice-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1914" class = "LineNr" > 1914 < / span > < span class = "PreProc" > var< / span > unquote-splice-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address unquote-splice-h
< span id = "L1915" class = "LineNr" > 1915 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > unquote-splice-ah, < span class = "Constant" > " ,@" < / span >
< span id = "L1916" class = "LineNr" > 1916 < / span > < span class = "PreProc" > var< / span > a-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1917" class = "LineNr" > 1917 < / span > < span class = "PreProc" > var< / span > a-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address a-h
< span id = "L1918" class = "LineNr" > 1918 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > a-ah, < span class = "Constant" > " a" < / span >
< span id = "L1919" class = "LineNr" > 1919 < / span > < span class = "PreProc" > var< / span > b-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1920" class = "LineNr" > 1920 < / span > < span class = "PreProc" > var< / span > b-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address b-h
< span id = "L1921" class = "LineNr" > 1921 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > b-ah, < span class = "Constant" > " b" < / span >
< span id = "L1922" class = "LineNr" > 1922 < / span > < span class = "muComment" > # env = ((b . (a 3)))< / span >
< span id = "L1923" class = "LineNr" > 1923 < / span > < span class = "PreProc" > var< / span > val-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1924" class = "LineNr" > 1924 < / span > < span class = "PreProc" > var< / span > val-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address val-h
< span id = "L1925" class = "LineNr" > 1925 < / span > < a href = 'cell.mu.html#L84' > new-integer< / a > val-ah, < span class = "Constant" > 3< / span >
< span id = "L1926" class = "LineNr" > 1926 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > val-ah, val-h, nil-h
< span id = "L1927" class = "LineNr" > 1927 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > val-ah, a-h, val-h
< span id = "L1928" class = "LineNr" > 1928 < / span > < span class = "PreProc" > var< / span > env-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1929" class = "LineNr" > 1929 < / span > < span class = "PreProc" > var< / span > env-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address env-h
< span id = "L1930" class = "LineNr" > 1930 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > env-ah, b-h, val-h
< span id = "L1931" class = "LineNr" > 1931 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > env-ah, env-h, nil-h
< span id = "L1932" class = "LineNr" > 1932 < / span > < span class = "muComment" > # input is `(a ,@b b)< / span >
< span id = "L1933" class = "LineNr" > 1933 < / span > < span class = "PreProc" > var< / span > tmp-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1934" class = "LineNr" > 1934 < / span > < span class = "PreProc" > var< / span > tmp-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp-h
< span id = "L1935" class = "LineNr" > 1935 < / span > < span class = "muComment" > # tmp = cons(b, nil)< / span >
< span id = "L1936" class = "LineNr" > 1936 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, b-h, nil-h
< span id = "L1937" class = "LineNr" > 1937 < / span > < span class = "muComment" > # tmp2 = cons(unquote-splice, b)< / span >
< span id = "L1938" class = "LineNr" > 1938 < / span > < span class = "PreProc" > var< / span > tmp2-h: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L1939" class = "LineNr" > 1939 < / span > < span class = "PreProc" > var< / span > tmp2-ah/< span class = "muRegEcx" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address tmp2-h
< span id = "L1940" class = "LineNr" > 1940 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp2-ah, unquote-splice-h, b-h
< span id = "L1941" class = "LineNr" > 1941 < / span > < span class = "muComment" > # tmp = cons(tmp2, tmp)< / span >
< span id = "L1942" class = "LineNr" > 1942 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, tmp2-h, tmp-h
< span id = "L1943" class = "LineNr" > 1943 < / span > < span class = "muComment" > # tmp = cons(a, tmp)< / span >
< span id = "L1944" class = "LineNr" > 1944 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, a-h, tmp-h
< span id = "L1945" class = "LineNr" > 1945 < / span > < span class = "muComment" > # tmp = cons(backquote, tmp)< / span >
< span id = "L1946" class = "LineNr" > 1946 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp-ah, backquote-h, tmp-h
< span id = "L1947" class = "LineNr" > 1947 < / span > < span class = "CommentedCode" > #? dump-cell-from-cursor-over-full-screen tmp-ah< / span >
< span id = "L1948" class = "LineNr" > 1948 < / span > < span class = "muComment" > #< / span >
< span id = "L1949" class = "LineNr" > 1949 < / span > < span class = "PreProc" > var< / span > trace-storage: trace
< span id = "L1950" class = "LineNr" > 1950 < / span > < span class = "PreProc" > var< / span > trace/< span class = "muRegEdi" > edi< / span > : (addr trace) < span class = "Special" > < -< / span > address trace-storage
< span id = "L1951" class = "LineNr" > 1951 < / span > < a href = 'trace.mu.html#L61' > initialize-trace< / a > trace, < span class = "Constant" > 1< / span > /only-errors, < span class = "Constant" > 0x10< / span > /capacity, < span class = "Constant" > 0< / span > /visible
< span id = "L1952" class = "LineNr" > 1952 < / span > < a href = 'evaluate.mu.html#L11' > evaluate< / a > tmp-ah, tmp-ah, env-h, < span class = "Constant" > 0< / span > /no-globals, trace, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard, < span class = "Constant" > 0< / span > /definitions-created, < span class = "Constant" > 0< / span > /call-number
< span id = "L1953" class = "LineNr" > 1953 < / span > < span class = "muComment" > # result is (a a 3 b)< / span >
< span id = "L1954" class = "LineNr" > 1954 < / span > < span class = "CommentedCode" > #? dump-cell-from-cursor-over-full-screen tmp-ah< / span >
< span id = "L1955" class = "LineNr" > 1955 < / span > < span class = "PreProc" > var< / span > result/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *tmp-ah
< span id = "L1956" class = "LineNr" > 1956 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1957" class = "LineNr" > 1957 < / span > < span class = "PreProc" > var< / span > result-type/< span class = "muRegEax" > eax< / span > : (addr int) < span class = "Special" > < -< / span > get result, < span class = "PreProc" > type< / span >
< span id = "L1958" class = "LineNr" > 1958 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > *result-type, < span class = "Constant" > 0< / span > /pair, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1906' > test-evaluate-backquote-list-with-unquote-splice< / a > /0" < / span >
< span id = "L1959" class = "LineNr" > 1959 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1960" class = "LineNr" > 1960 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1961" class = "LineNr" > 1961 < / span > < span class = "PreProc" > var< / span > a1-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get result, left
< span id = "L1962" class = "LineNr" > 1962 < / span > < span class = "PreProc" > var< / span > a1/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *a1-ah
< span id = "L1963" class = "LineNr" > 1963 < / span > < span class = "PreProc" > var< / span > check1/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > a1, < span class = "Constant" > " a" < / span >
< span id = "L1964" class = "LineNr" > 1964 < / span > < a href = '../502test.mu.html#L19' > check< / a > check1, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1906' > test-evaluate-backquote-list-with-unquote-splice< / a > /1" < / span >
< span id = "L1965" class = "LineNr" > 1965 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1966" class = "LineNr" > 1966 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get result, right
< span id = "L1967" class = "LineNr" > 1967 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L1968" class = "LineNr" > 1968 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1969" class = "LineNr" > 1969 < / span > < span class = "PreProc" > var< / span > a2-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L1970" class = "LineNr" > 1970 < / span > < span class = "PreProc" > var< / span > a2/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *a2-ah
< span id = "L1971" class = "LineNr" > 1971 < / span > < span class = "PreProc" > var< / span > check2/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > a2, < span class = "Constant" > " a" < / span >
< span id = "L1972" class = "LineNr" > 1972 < / span > < a href = '../502test.mu.html#L19' > check< / a > check2, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1906' > test-evaluate-backquote-list-with-unquote-splice< / a > /2" < / span >
< span id = "L1973" class = "LineNr" > 1973 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1974" class = "LineNr" > 1974 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, right
< span id = "L1975" class = "LineNr" > 1975 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L1976" class = "LineNr" > 1976 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1977" class = "LineNr" > 1977 < / span > < span class = "PreProc" > var< / span > a3-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L1978" class = "LineNr" > 1978 < / span > < span class = "PreProc" > var< / span > a3/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *a3-ah
< span id = "L1979" class = "LineNr" > 1979 < / span > < span class = "PreProc" > var< / span > a3-value-addr/< span class = "muRegEax" > eax< / span > : (addr float) < span class = "Special" > < -< / span > get a3, number-data
< span id = "L1980" class = "LineNr" > 1980 < / span > < span class = "PreProc" > var< / span > a3-value/< span class = "muRegEax" > eax< / span > : int < span class = "Special" > < -< / span > convert *a3-value-addr
< span id = "L1981" class = "LineNr" > 1981 < / span > < a href = '../502test.mu.html#L2' > check-ints-equal< / a > a3-value, < span class = "Constant" > 3< / span > , < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1906' > test-evaluate-backquote-list-with-unquote-splice< / a > /3" < / span >
< span id = "L1982" class = "LineNr" > 1982 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1983" class = "LineNr" > 1983 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, right
< span id = "L1984" class = "LineNr" > 1984 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L1985" class = "LineNr" > 1985 < / span > < span class = "Delimiter" > {< / span >
< span id = "L1986" class = "LineNr" > 1986 < / span > < span class = "PreProc" > var< / span > a4-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, left
< span id = "L1987" class = "LineNr" > 1987 < / span > < span class = "PreProc" > var< / span > a4/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *a4-ah
< span id = "L1988" class = "LineNr" > 1988 < / span > < span class = "PreProc" > var< / span > check4/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'cell.mu.html#L44' > symbol-equal?< / a > a4, < span class = "Constant" > " b" < / span >
< span id = "L1989" class = "LineNr" > 1989 < / span > < a href = '../502test.mu.html#L19' > check< / a > check4, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1906' > test-evaluate-backquote-list-with-unquote-splice< / a > /4" < / span >
< span id = "L1990" class = "LineNr" > 1990 < / span > < span class = "Delimiter" > }< / span >
< span id = "L1991" class = "LineNr" > 1991 < / span > < span class = "PreProc" > var< / span > rest-ah/< span class = "muRegEax" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > get rest, right
< span id = "L1992" class = "LineNr" > 1992 < / span > < span class = "PreProc" > var< / span > rest/< span class = "muRegEax" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *rest-ah
< span id = "L1993" class = "LineNr" > 1993 < / span > < span class = "PreProc" > var< / span > check5/< span class = "muRegEax" > eax< / span > : boolean < span class = "Special" > < -< / span > < a href = 'print.mu.html#L347' > nil?< / a > rest
< span id = "L1994" class = "LineNr" > 1994 < / span > < a href = '../502test.mu.html#L19' > check< / a > check5, < span class = "Constant" > " F - < a href = 'evaluate.mu.html#L1906' > test-evaluate-backquote-list-with-unquote-splice< / a > /5" < / span >
< span id = "L1995" class = "LineNr" > 1995 < / span > < span class = "Delimiter" > }< / span >
2021-04-14 04:11:26 +00:00
< / pre >
< / body >
< / html >
<!-- vim: set foldmethod=manual : -->