y-combinator for js update

Author: seckcoder

src/little-schemer/y-combinator.js

@@ -13,6 +13,8 @@ var fib = Y(function (fib_t) {
     return function (n) {
         if (n == 0) return 0;
         if (n == 1) return 1;
-        return fib_t(n-1) + fib_t(n-2);
+        return fib(n-1) + fib(n-2);
     };
 });
+
+console.log(fib(10));

src/little-schemer/y-combinator.scm

@@ -253,10 +253,10 @@
 ; we define the part that is not related to length/mk-length as Y
 ; that is y-combinator
 (define Y
-  (lambda (le)
+  (lambda (g)
     ((lambda (f) (f f))
      (lambda (f)
-       (le (lambda (x) ((f f) x)))))))
+       (g (lambda (x) ((f f) x)))))))
 
 (define mk-length
   (lambda (length)