Correct cos'

diff --git a/grad.scm b/grad.scm
index 8f526fd4a3fb6f5bdb302409e64e567abc85b635..e93a3129f17b1aa5660999ec00b119842a5a4e3a 100644 (file)
--- a/grad.scm
+++ b/grad.scm
@@ -381,7 +381,7 @@ element-wise. All arrays must have the same dimension."
 (define (i:sin x)
   "Differentiable sine."
   (differentiable-wrapper
-   (list (ewise1 cons))
+   (list (ewise1 cos))
    (extend sin)
    x))