Fix a bug in the previous commit.

marcoheisig · Jul 14, 2021 · 54caa11 · 54caa11
1 parent e0453e7
commit 54caa11
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/examples/iterative-methods.lisp b/examples/iterative-methods.lisp
@@ -352,8 +352,7 @@
 
 (defun v-cycle (u f h v1 v2)
   (let ((u (lazy-array u))
-        (f (lazy-array f))
-        (h (lazy-array h)))
+        (f (lazy-array f)))
     (if (<= (range-size (first (shape-ranges (lazy-array-shape u)))) 3)
         (rbgs u f h 3) ; solve "exactly"
         (let* ((x (rbgs u f h v1))