mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +02:00
Code Activity

(scm_floor, scm_ceiling, scm_truncate_number,

Browse source 
scm_round_number): New functions, replacing scm_tc7_cxr definitions,
and ensuring exact arguments give exact results, as required by R5RS.
Derived in part from the same by Marius in the cvs head.  Reported by
Ray Lehtiniemi.
This commit is contained in:
Kevin Ryde 2004-05-12 00:44:33 +00:00
parent 627861983e
commit 0e0f3969a9
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/numbers.h
View file

@ -2,7 +2,7 @@
#ifndef NUMBERSH #ifndef NUMBERSH
#define NUMBERSH #define NUMBERSH
/* Copyright (C) 1995,1996,1998,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1998,2000,2001, 2004 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -295,6 +295,10 @@ extern double scm_atanh (double x);
extern double scm_truncate (double x); extern double scm_truncate (double x);
extern double scm_round (double x); extern double scm_round (double x);
extern double scm_exact_to_inexact (double z); extern double scm_exact_to_inexact (double z);
extern SCM scm_truncate_number (SCM x);
extern SCM scm_round_number (SCM x);
extern SCM scm_floor (SCM x);
extern SCM scm_ceiling (SCM x);
extern SCM scm_sys_expt (SCM z1, SCM z2); extern SCM scm_sys_expt (SCM z1, SCM z2);
extern SCM scm_sys_atan2 (SCM z1, SCM z2); extern SCM scm_sys_atan2 (SCM z1, SCM z2);
extern SCM scm_make_rectangular (SCM z1, SCM z2); extern SCM scm_make_rectangular (SCM z1, SCM z2);