From 1ff08c03752688d8269d8d93113fcc74e6f52f02 Mon Sep 17 00:00:00 2001
From: Jakob Kaivo <jkk@ung.org>
Date: Mon, 28 Mar 2022 16:39:12 -0400
Subject: rename dbltobig() to big_fromd()

---
 big.c    | 2 +-
 big.h    | 2 +-
 reduce.c | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/big.c b/big.c
index 8c96896..35f27b5 100644
--- a/big.c
+++ b/big.c
@@ -652,7 +652,7 @@ double big_tod(word x)
    but is used without surrounding sto_/set)dbl() only in compare() */
 
 /* entier */
-word dbltobig(double x)
+word big_fromd(double x)
 {
   word s = (x < 0);
   word r = make(INT, 0, 0);
diff --git a/big.h b/big.h
index 3617d90..760944d 100644
--- a/big.h
+++ b/big.h
@@ -42,7 +42,7 @@ word bigtostr(word);
 word bigtostr8(word);
 word bigtostrx(word);
 word bigxscan(char *,char *);
-word dbltobig(double);
+word big_fromd(double);
 int isnat(word);
 word strtobig(word,int);
 
diff --git a/reduce.c b/reduce.c
index 2d72394..6c61f9a 100644
--- a/reduce.c
+++ b/reduce.c
@@ -1933,7 +1933,7 @@ L3: if(arg1==NIL)lexfail(lastarg);
     case READY(ENTIER_FN): /* floor */
     UPLEFT;
     if(tag[lastarg]==INT)simpl(lastarg);
-    else simpl(dbltobig(get_dbl(lastarg)));
+    else simpl(big_fromd(get_dbl(lastarg)));
     goto DONE;
 
     case READY(LOG_FN): /* log */
-- 
cgit v1.2.1