From 72de3ba12f87797c782746f9e8aabe9b2579fd36 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Thu, 5 Apr 2018 22:11:05 +0900
Subject: [PATCH] exit codes should be exact (issue #467)

---
 lib/chibi/process.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/process.scm b/lib/chibi/process.scm
index 32d6a1e1..0f8f5284 100644
--- a/lib/chibi/process.scm
+++ b/lib/chibi/process.scm
@@ -10,7 +10,9 @@
  (else
   (define (exit . o)
     (%exit (if (pair? o)
-               (if (integer? (car o)) (car o) (if (eq? #t (car o)) 0 1))
+               (if (integer? (car o))
+                   (inexact->exact (car o))
+                   (if (eq? #t (car o)) 0 1))
                0)))))
 
 (cond-expand