about summary refs log tree commit diff stats
path: root/shen/rms.shen
diff options
context:
space:
mode:
authorDarren Bane <darren.bane@emdalo.com>2021-11-02 13:28:51 +0000
committerDarren Bane <darren.bane@emdalo.com>2021-11-02 13:28:51 +0000
commitccb2aac02c83a057f9a22d59e6fbaecf25709073 (patch)
tree5fbbcf557e000dd16d5bb352def9b4a3debff730 /shen/rms.shen
parent5270dbf2e0325ca8e5d829dd4f40ef3baf2b41ea (diff)
parent67ef9fbf276a3f1490910abfcb2f8387f0944a95 (diff)
downloadlsp-ccb2aac02c83a057f9a22d59e6fbaecf25709073.tar.gz
Merge branch 'master' of tilde.institute:public_repos/lsp
Diffstat (limited to 'shen/rms.shen')
-rw-r--r--shen/rms.shen8
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)))