From 4972de640fae81de5b8b9786c27b4399917749a6 Mon Sep 17 00:00:00 2001
From: zeptometer <yuito.murase@gmail.com>
Date: Mon, 26 Jan 2015 15:03:04 +0900
Subject: [PATCH] rename benz's call/cc to escape in (picrin control)

---
 contrib/03.callcc/callcc.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/contrib/03.callcc/callcc.c b/contrib/03.callcc/callcc.c
index 8342f0f2..f516e8c7 100644
--- a/contrib/03.callcc/callcc.c
+++ b/contrib/03.callcc/callcc.c
@@ -287,6 +287,10 @@ pic_callcc_callcc(pic_state *pic)
 void
 pic_init_callcc(pic_state *pic)
 {
+  pic_deflibrary (pic, "(picrin control)") {
+    pic_define(pic, "escape", pic_ref(pic, pic->PICRIN_BASE, "call-with-current-continuation"));
+  }
+
   pic_deflibrary (pic, "(scheme base)") {
     pic_redefun(pic, pic->PICRIN_BASE, "call-with-current-continuation", pic_callcc_callcc);
     pic_redefun(pic, pic->PICRIN_BASE, "call/cc", pic_callcc_callcc);