diff options
author | Darren Bane <darren.bane@gmail.com> | 2021-11-02 13:22:02 +0000 |
---|---|---|
committer | Darren Bane <darren.bane@gmail.com> | 2021-11-02 13:22:02 +0000 |
commit | 67ef9fbf276a3f1490910abfcb2f8387f0944a95 (patch) | |
tree | 5fbbcf557e000dd16d5bb352def9b4a3debff730 /shen/rms.shen | |
parent | 534ce2037b4cef7d984307aecb0da47b982e7071 (diff) | |
download | lsp-67ef9fbf276a3f1490910abfcb2f8387f0944a95.tar.gz |
Some Shen code
Diffstat (limited to 'shen/rms.shen')
-rw-r--r-- | shen/rms.shen | 8 |
1 files changed, 8 insertions, 0 deletions
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))) |