conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

elk (3.0-15) unstable; urgency=low 

* In math.c:Exact_Modulo(), follow R5RS's definition of Modulo: if x/y is an
    integer, return Zero (Closes: #197831).
  * Made /usr/bin/elk a symlink to /usr/bin/scheme-elk.
 -- Sam Hocevar (Debian packages) <sam+deb@zoy.org>  Wed, 18 Jun 2003 01:42:54 +0200


git-svn-id: svn://svn.zoy.org/elk/trunk@9 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam 2003-08-19 19:27:51 +00:00
parent 5066aea63d
commit a5ef1a6d2a
4 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debian/changelog vendored
View File

@ -1,3 +1,11 @@
elk (3.0-15) unstable; urgency=low
* In math.c:Exact_Modulo(), follow R5RS's definition of Modulo: if x/y is an
integer, return Zero (Closes: #197831).
* Made /usr/bin/elk a symlink to /usr/bin/scheme-elk.
-- Sam Hocevar (Debian packages) <sam+deb@zoy.org> Wed, 18 Jun 2003 01:42:54 +0200
elk (3.0-14) unstable; urgency=low elk (3.0-14) unstable; urgency=low
* Rebuilt package against libgdbm's new version. * Rebuilt package against libgdbm's new version.

2
debian/rules vendored
View File

@ -105,7 +105,7 @@ binary-arch: build install
# dh_undocumented # dh_undocumented
dh_installchangelogs CHANGES dh_installchangelogs CHANGES
dh_strip dh_strip
# dh_link dh_link usr/bin/scheme-elk usr/bin/elk
dh_compress dh_compress
dh_fixperms dh_fixperms
dh_installdeb dh_installdeb

6
doc/man/elk.1
View File

@ -2,9 +2,9 @@
.TH ELK 1 "15 January 1991" .TH ELK 1 "15 January 1991"
.UC 4 .UC 4
.SH NAME .SH NAME
elk, scheme \- extensible Scheme interpreter elk, scheme-elk \- extensible Scheme interpreter
.SH SYNOPSIS .SH SYNOPSIS
.B scheme .B elk
[ [
.B \-l \f2file\fP .B \-l \f2file\fP
] [ ] [
@ -32,7 +32,7 @@ Normally,
is linked with the application it serves, but a stand-alone version is linked with the application it serves, but a stand-alone version
of the Scheme interpreter is installed as well (usually under of the Scheme interpreter is installed as well (usually under
the name the name
.BR scheme ). .BR elk ).
This interpreter, together with the standard Scheme toplevel, This interpreter, together with the standard Scheme toplevel,
.I Elk .I Elk
can be used as an ordinary, stand-alone implementation of the can be used as an ordinary, stand-alone implementation of the

10
src/math.c
View File

@ -886,10 +886,12 @@ Object Exact_Modulo (Object x, Object y) {
GC_Link2 (x, y); GC_Link2 (x, y);
rem = General_Integer_Divide (x, y, 1); rem = General_Integer_Divide (x, y, 1);
xneg = P_Negativep (x); if (!EQ(rem,Zero)) {
yneg = P_Negativep (y); xneg = P_Negativep (x);
if (!EQ(xneg,yneg)) yneg = P_Negativep (y);
rem = Generic_Plus (rem, y); if (!EQ(xneg,yneg))
rem = Generic_Plus (rem, y);
}
GC_Unlink; GC_Unlink;
return rem; return rem;
} }