From 1ec9d578d0a2b8f6bfe53d223b1641612ab75b83 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Wed, 30 Mar 2016 22:33:29 +0900
Subject: [PATCH] fixing number->string for non-full-numeric-tower builds

---
 lib/init-7.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/init-7.scm b/lib/init-7.scm
index da51b51b..c27c7a75 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -1097,6 +1097,7 @@
   (define (exact-complex? x)
     (and (%complex? x) (exact? (complex-real x)) (exact? (complex-imag x)))))
  (else
+  (define (%complex? x) #f)
   (define (exact-complex? x) #f)))
 
 (cond-expand
@@ -1122,6 +1123,7 @@
             1.0
             (exact->inexact (denominator (inexact->exact x)))))))
  (else
+  (define (ratio? x) #f)
   (cond-expand
    (complex
     (define (exact? x)