about summary refs log blame commit diff stats
path: root/shen/rms.shen
blob: f7a17cbf1d936a4e5546ce8d0eaa6332aec8df3c (plain) (tree)
1
2
3
4
5
6
7
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)))