X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_misc.scm;fp=src%2Fgacela_misc.scm;h=42c8841f7e0bf132848a09eab5a5b315b1f91a58;hb=23dc2e79bfa98af475cafe3754f85c94949a4e8c;hp=d486b2650b734a2bea3ef7b977f42898ad7ef480;hpb=c09ace17399a4f6ffc5da5b498385b77473b5795;p=gacela.git diff --git a/src/gacela_misc.scm b/src/gacela_misc.scm index d486b26..42c8841 100644 --- a/src/gacela_misc.scm +++ b/src/gacela_misc.scm @@ -15,6 +15,14 @@ ;;; along with this program. If not, see . + +;;; Additional modules + +(use-modules (srfi srfi-1)) + + +;;; Functions + (define (nearest-power-of-two n) (define (power p n) (cond ((> (* p 2) n) p)