From 67ef9fbf276a3f1490910abfcb2f8387f0944a95 Mon Sep 17 00:00:00 2001
From: Darren Bane <darren.bane@gmail.com>
Date: Tue, 2 Nov 2021 13:22:02 +0000
Subject: Some Shen code

---
 shen/rms.shen | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 shen/rms.shen

(limited to 'shen/rms.shen')

diff --git a/shen/rms.shen b/shen/rms.shen
new file mode 100644
index 0000000..f7a17cb
--- /dev/null
+++ b/shen/rms.shen
@@ -0,0 +1,8 @@
+(set *hush* true)
+(LOAD "rms-sysdep.lisp")
+(declare sqrt [number --> number])
+(specialise sqrt 1)
+(tc +)
+(load "rms-defs.shen")
+(set *hush* false)
+(output "~A~%" (rms (iota 10)))
-- 
cgit 1.4.1-2-gfad0

elect name='h' onchange='this.form.submit();'>
<option value='c5acb17a2951f8653b271eefa47dfd9c30d8098c'>this commit</option>
<optgroup label='branches'><option value='master'>master</option>
</optgroup></select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Community notes board for shared UNIX systems</td><td class='sub right'>gbmor &lt;ben@gbmor.dev&gt;</td></tr></table>
<table class='tabs'><tr><td>
<a href='/gbmor/clinte/?h=v0.1.1'>summary</a> <a href='/gbmor/clinte/refs/?h=v0.1.1&amp;id=b278ba66fd7975249e0b90055cd5a46034b072b9'>refs</a> <a href='/gbmor/clinte/log/.gitignore?h=v0.1.1'>log</a> <a class='active' href='/gbmor/clinte/blame/.gitignore?h=v0.1.1&amp;id=b278ba66fd7975249e0b90055cd5a46034b072b9'>blame</a> <a href='/gbmor/clinte/commit/.gitignore?h=v0.1.1&amp;id=b278ba66fd7975249e0b90055cd5a46034b072b9'>commit</a> <a href='/gbmor/clinte/diff/.gitignore?h=v0.1.1&amp;id=b278ba66fd7975249e0b90055cd5a46034b072b9'>diff</a> <a href='/gbmor/clinte/stats/.gitignore?h=v0.1.1'>stats</a></td><td class='form'><form class='right' method='get' action='/gbmor/clinte/log/.gitignore'>
<input type='hidden' name='h' value='v0.1.1'/><input type='hidden' name='id' value='b278ba66fd7975249e0b90055cd5a46034b072b9'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/gbmor/clinte/blame/?h=v0.1.1&amp;id=b278ba66fd7975249e0b90055cd5a46034b072b9'>root</a>/<a href='/gbmor/clinte/blame/.gitignore?h=v0.1.1&amp;id=b278ba66fd7975249e0b90055cd5a46034b072b9'>.gitignore</a></div><div class='content'>blob: 53eaa21960d1b9c229de5e6ca9becd1a6089c021 (<a href='/gbmor/clinte/plain/.gitignore?h=v0.1.1&amp;id=b278ba66fd7975249e0b90055cd5a46034b072b9'>plain</a>) (<a href='/gbmor/clinte/tree/.gitignore?h=v0.1.1&amp;id=b278ba66fd7975249e0b90055cd5a46034b072b9'>tree</a>)
<table class='blame blob'>
<tr>
<td class='hashes'><div class='alt'><pre><span class='oid'><a title='author  Ben Morrison &lt;ben@gbmor.dev&gt;  2019-08-27 00:17:02 -0400
committer  Ben Morrison &lt;ben@gbmor.dev&gt;  2019-08-27 00:17:02 -0400

init' href='/gbmor/clinte/commit/.gitignore?h=v0.1.1&amp;id=d64124e97bdf26169f20e98fbdf1af934b265b74'>d64124e</a></span> <a title='Blame the previous revision' href='/gbmor/clinte/blame/.gitignore?h=v0.1.1&amp;id=0e199a8bd1a571faaa9960ad7ecfde27be7a1b19'>^</a>

</pre></div></td>
<td class='linenumbers'><div class='alt'><pre><a id='n1' href='#n1'>1</a>
<a id='n2' href='#n2'>2</a>
</pre></div></td>
<td class='lines'><div><div><div class='alt'><pre>

          </pre></div></div><pre><code>