summaryrefslogtreecommitdiffstats
path: root/peanosfc.scm
diff options
context:
space:
mode:
authorThomas Bushnell, BSG <tb@debian.org>2006-04-26 23:08:39 -0700
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:34 -0800
commit0aec178b52e42086df31cc52558bba0ef22b8439 (patch)
tree6e58dcbfcaf56e5d6595f5d6fb7e83810bf8d760 /peanosfc.scm
parentff9cb66fee88a090869a2fb452ad49d858fe3b0c (diff)
parent237c6e380aebdcbc70bd1c9ecf7d3f6effca2752 (diff)
downloadslib-0aec178b52e42086df31cc52558bba0ef22b8439.tar.gz
slib-0aec178b52e42086df31cc52558bba0ef22b8439.zip
Import Debian changes 3a3-1debian/3a3-1
slib (3a3-1) unstable; urgency=low * New upstream release. Change to guile.init for module correctness (from 3a2-5) is now in upstream. We'll drop the path-search misfeature at this point, and stick to upstream's version, unless this causes actual difficulties. * Makefile: Repeat $(htmldir)slib_toc.html changes from 3a2-1. * debian/postinst: Fix typos in comments. (Closes: #337571)
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