diff options
Diffstat (limited to 'peanosfc.scm')
| -rw-r--r-- | peanosfc.scm | 2 |
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 |