From 5c7fe7d54e04c70c8aa4bf848c9d6472bdf2e8db Mon Sep 17 00:00:00 2001 From: Mustafa Date: Sat, 15 Feb 2014 16:20:55 -0800 Subject: [PATCH] added provide form to rsc3.rkt --- rsc3/rsc3.rkt | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/rsc3/rsc3.rkt b/rsc3/rsc3.rkt index 199fe7c..99262f5 100644 --- a/rsc3/rsc3.rkt +++ b/rsc3/rsc3.rkt @@ -8,25 +8,27 @@ "../sosc/transport.rkt" "../sosc/sosc.rkt" (prefix-in srfi: srfi/27) - (prefix-in srfi: srfi/19) - ) + (prefix-in srfi: srfi/19)) +;; TODO - export only useful funcs +(provide (all-defined-out) + send) ;; [a] -> int -> [a] (define extend (lambda (l n) (let ((z (length l))) (cond ((= z n) l) - ((> z n) (take n l)) - (else (extend (append2 l l) n)))))) + ((> z n) (take n l)) + (else (extend (append2 l l) n)))))) ;; [a] -> int -> [a] (define take-cycle (lambda (l n) (if (null? l) - nil - (cons (head l) - (take-cycle (drop n l) n))))) + nil + (cons (head l) + (take-cycle (drop n l) n))))) ;; (a -> a -> a) -> ([a] -> [a]) (define differentiate-with