Renamed to fulfill the text in the exercise

tomzhang · May 1, 2012 · 83b9949 · 83b9949
1 parent 6e822a2
commit 83b9949
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/3.5/e-3.76.scm b/3.5/e-3.76.scm
@@ -26,11 +26,10 @@
 (define (average x y)
   (/ (+ x y) 2))
 
-(define (average-stream input-stream)
+(define (smooth input-stream)
   (stream-map average input-stream (stream-cdr input-stream)))
 
 (define (make-zero-crossings input-stream)
   (stream-map sign-change-detector input-stream (stream-cdr input-stream)))
 
-(define zero-crossings
-  (make-zero-crossings (average-stream sensor-stream)))
+(define zero-crossings (make-zero-crossings (smooth sensor-stream)))