From 5b64ba5a9cd19e8adc5175908e83f6532a2c40cf Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 11 Dec 2011 14:24:45 +0900
Subject: [PATCH] heap size utility 'multiplier' not used with boehm

---
 main.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/main.c b/main.c
index 10609db8..f8ae0ee5 100644
--- a/main.c
+++ b/main.c
@@ -216,6 +216,7 @@ static void repl (sexp ctx, sexp env) {
   sexp_gc_release3(ctx);
 }
 
+#if ! SEXP_USE_BOEHM
 static sexp_uint_t multiplier (char c) {
   switch (sexp_tolower(c)) {
   case 'k': return 1024;
@@ -224,6 +225,7 @@ static sexp_uint_t multiplier (char c) {
   default:  return 1;
   }
 }
+#endif
 
 static void check_nonull_arg (int c, char *arg) {
   if (! arg) {