From 073621cd66f5ec4f35ab74c1de7f4da645b4deff Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Tue, 17 Dec 1996 21:21:01 +0000
Subject: [PATCH] * numbers.c (scm_fuck): Procedure removed; looks like old
 test code.

---
 libguile/numbers.c | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/libguile/numbers.c b/libguile/numbers.c
index d8b4e2553..360527611 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -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