From 60a1b968c01d845915fa013f86b3441e1fb36106 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 4 Apr 2011 23:40:56 +0900
Subject: [PATCH] inlining user-information procedure

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

diff --git a/lib/chibi/system.module b/lib/chibi/system.module
index 8b9f94eb..dee60b47 100644
--- a/lib/chibi/system.module
+++ b/lib/chibi/system.module
@@ -10,4 +10,6 @@
           set-root-directory!)
   (import-immutable (scheme))
   (include-shared "system")
-  (include "system.scm"))
+  (body
+   (define (user-information user)
+     (car (if (string? user) (getpwnam_r user) (getpwuid_r user))))))