summaryrefslogtreecommitdiffstats
path: root/peanosfc.scm
diff options
context:
space:
mode:
Diffstat (limited to 'peanosfc.scm')
-rw-r--r--peanosfc.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/peanosfc.scm b/peanosfc.scm
index 8c1e1a9..5cac088 100644
--- a/peanosfc.scm
+++ b/peanosfc.scm
@@ -91,7 +91,7 @@
(do ((idx (+ -1 idx) (+ -1 idx)))
((negative? idx))
(set! tpar (+ (array-ref tra rdx idx) tpar)))
- (array-set! tra (if (odd? tpar) (- 2 v_ij) v_ij) rdx idx)
+ (if (odd? tpar) (array-set! tra (- 2 v_ij) rdx idx))
(set! parity (modulo (+ parity v_ij) 2))))))
;;@body