From a3d13e26cdc231e4c2027fe70c11f4c1d11ad8ea Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Sat, 23 Apr 2005 00:36:41 +0000
Subject: [PATCH] (numerator, denominator): New functions as specified by R5RS,
 7 lines by Aubrey Jaffer.

---
 ice-9/boot-9.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 50c21e80f..cd8fcc543 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -774,6 +774,15 @@
 (define (log10 arg)
   (/ (log arg) (log 10)))
 
+(define (numerator q)
+  (do ((num q (* 2 num)))
+      ((integer? num) num)))
+
+(define (denominator q)
+  (do ((num q (* 2 num))
+       (den (- q q -1) (* 2 den)))
+      ((integer? num) den)))
+
 
 
 ;;; {Reader Extensions}