diff options
| author | Thomas Bushnell, BSG <tb@debian.org> | 2006-04-26 23:08:39 -0700 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:34 -0800 |
| commit | 0aec178b52e42086df31cc52558bba0ef22b8439 (patch) | |
| tree | 6e58dcbfcaf56e5d6595f5d6fb7e83810bf8d760 /peanosfc.scm | |
| parent | ff9cb66fee88a090869a2fb452ad49d858fe3b0c (diff) | |
| parent | 237c6e380aebdcbc70bd1c9ecf7d3f6effca2752 (diff) | |
| download | slib-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.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 |