mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-20 11:40:18 +02:00
* numbers.c (scm_fuck): Procedure removed; looks like old test code.
This commit is contained in:
parent
0032595465
commit
073621cd66
1 changed files with 0 additions and 9 deletions
|
@ -2850,15 +2850,6 @@ scm_num2dbl (a, why)
|
|||
}
|
||||
|
||||
|
||||
SCM_PROC(s_fuck, "fuck", 1, 0, 0, scm_fuck);
|
||||
|
||||
SCM
|
||||
scm_fuck (a)
|
||||
SCM a;
|
||||
{
|
||||
return scm_makdbl (scm_num2dbl (a, "just because"), 0.0);
|
||||
}
|
||||
|
||||
SCM_PROC1 (s_divide, "/", scm_tc7_asubr, scm_divide);
|
||||
|
||||
SCM
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue