From 8b82498cd7932fae3fa6bc71b5907f7552beb313 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 19 Jul 2014 18:28:10 +0900
Subject: [PATCH] inline some trivial functions

---
 piclib/picrin/macro.scm | 17 +++++------------
 1 file changed, 5 insertions(+), 12 deletions(-)

diff --git a/piclib/picrin/macro.scm b/piclib/picrin/macro.scm
index 8f279b51..b2cccec3 100644
--- a/piclib/picrin/macro.scm
+++ b/piclib/picrin/macro.scm
@@ -114,11 +114,6 @@
          (lambda (sym)
            (make-identifier sym mac-env))))
 
-      (define (uninject sym)
-        (if (dictionary-has? icache* sym)
-            (dictionary-ref icache* sym)
-            (rename sym)))
-
       (define (compare x y)
         (if (not (symbol? x))
             #f
@@ -126,13 +121,11 @@
                 #f
                 (identifier=? mac-env x mac-env y))))
 
-      (define (wrap expr)
-        (walk inject expr))
-
-      (define (unwrap expr)
-        (walk uninject expr))
-
-      (unwrap (f (wrap expr) inject compare))))
+      (walk (lambda (sym)
+              (if (dictionary-has? icache* sym)
+                  (dictionary-ref icache* sym)
+                  (rename sym)))
+            (f (walk inject expr) inject compare))))
 
   (export make-syntactic-closure
           close-syntax