From 3e5c928548a56c45f2fcc6e24a7c6472d5373e30 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 21 Mar 2011 15:38:09 +0900
Subject: [PATCH] adding letrec*

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

diff --git a/lib/init.scm b/lib/init.scm
index 4bb3bc5c..8ea2077b 100644
--- a/lib/init.scm
+++ b/lib/init.scm
@@ -819,6 +819,11 @@
                 (list (list _error "no expansion for"
                             (list (rename 'strip-syntactic-closures) _expr)))))))))))
 
+(define-syntax letrec*
+  (syntax-rules ()
+    ((letrec* ((var val) ...) . body)
+     (let () (define var val) ... . body))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; modules