Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (7 sloc) 131 Bytes
(library
(sicm kernel-generic)
(export)
(import (rnrs))
(define (magnitude obj)
(cond ((number? obj) (abs obj))))
)