Greek letters ftw.

1 files changed, 6 insertions, 6 deletions

diff --git a/services/nnls.rkt b/services/nnls.rkt
index 8fdccc8..40f03ab 100644
--- a/services/nnls.rkt
+++ b/services/nnls.rkt
@@ -214,12 +214,12 @@
                (test-case "Two variables, known solution"
                  (define A (matrix [[1 0] [0 1]]))
                  (define y (col-matrix [3 4]))
-                 (define epsilon 1e-6)
+                 (define ε 1e-6)
 
-                 (define result (lawson-hanson-1974 A y epsilon))
+                 (define result (lawson-hanson-1974 A y ε))
 
-                 (check-= (matrix-ref result 0 0) 3.0 epsilon "x1 should be 3")
-                 (check-= (matrix-ref result 1 0) 4.0 epsilon "x2 should be 4"))
+                 (check-= (matrix-ref result 0 0) 3.0 ε "x1 should be 3")
+                 (check-= (matrix-ref result 1 0) 4.0 ε "x2 should be 4"))
 
                (test-case "Overdetermined system"
                  (define A (matrix [[1 1] [2 1] [1 2]]))
@@ -235,9 +235,9 @@
                (test-case "Non-negativity enforcement"
                  (define A (matrix [[1 -1] [1 1]]))
                  (define y (col-matrix [1 3]))
-                 (define epsilon 1e-6)
+                 (define ε 1e-6)
 
-                 (define result (lawson-hanson-1974 A y epsilon))
+                 (define result (lawson-hanson-1974 A y ε))
 
                  ;; All results should be non-negative
                  (check-true (>= (matrix-ref result 0 0) 0) "x1 should be non-negative")