From c148f7461849de196cbc3021363f4cd838603ad1 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 19 Jul 2014 15:11:17 +0900
Subject: [PATCH] include core-syntax at early stage

---
 piclib/prelude.scm | 25 +++++++++++--------------
 1 file changed, 11 insertions(+), 14 deletions(-)

diff --git a/piclib/prelude.scm b/piclib/prelude.scm
index 7b45efa5..16fe098d 100644
--- a/piclib/prelude.scm
+++ b/piclib/prelude.scm
@@ -279,12 +279,20 @@
           letrec-syntax
           _ ... syntax-error))
 
+(import (picrin core-syntax))
+
+(export let let* letrec letrec*
+        quasiquote unquote unquote-splicing
+        and or
+        cond case else =>
+        do when unless
+        letrec-syntax
+        _ ... syntax-error)
 
 ;;; multiple value
 (define-library (picrin multiple-value)
   (import (scheme base)
-          (picrin macro)
-          (picrin core-syntax))
+          (picrin macro))
 
   (define-syntax let*-values
     (er-macro-transformer
@@ -361,7 +369,6 @@
 (define-library (picrin parameter)
   (import (scheme base)
           (picrin macro)
-          (picrin core-syntax)
           (picrin var)
           (picrin attribute)
           (picrin dictionary))
@@ -429,8 +436,7 @@
 ;;; Record Type
 (define-library (picrin record)
   (import (scheme base)
-          (picrin macro)
-          (picrin core-syntax))
+          (picrin macro))
 
   (define record-marker (list 'record-marker))
 
@@ -569,19 +575,10 @@
   (export define-record-type vector?))
 
 (import (picrin macro)
-        (picrin core-syntax)
         (picrin multiple-value)
         (picrin parameter)
         (picrin record))
 
-(export let let* letrec letrec*
-        quasiquote unquote unquote-splicing
-        and or
-        cond case else =>
-        do when unless
-        letrec-syntax
-        _ ... syntax-error)
-
 (export let-values
         let*-values
         define-values)