don't define (picrin control escape) in callcc.c

This commit is contained in:
Yuichi Nishiwaki 2015-06-26 13:18:22 +09:00
parent d8e00f5725
commit 087e65ef1c
3 changed files with 7 additions and 4 deletions

View File

@ -12,6 +12,7 @@ PICRIN_LIBS = \
piclib/picrin/macro.scm\ piclib/picrin/macro.scm\
piclib/picrin/record.scm\ piclib/picrin/record.scm\
piclib/picrin/array.scm\ piclib/picrin/array.scm\
piclib/picrin/control.scm\
piclib/picrin/experimental/lambda.scm\ piclib/picrin/experimental/lambda.scm\
piclib/picrin/syntax-rules.scm\ piclib/picrin/syntax-rules.scm\
piclib/picrin/test.scm piclib/picrin/test.scm

View File

@ -297,10 +297,6 @@ pic_callcc_callcc(pic_state *pic)
void void
pic_init_callcc(pic_state *pic) 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_deflibrary (pic, "(scheme base)") {
pic_redefun(pic, pic->PICRIN_BASE, "call-with-current-continuation", pic_callcc_callcc); pic_redefun(pic, pic->PICRIN_BASE, "call-with-current-continuation", pic_callcc_callcc);
pic_redefun(pic, pic->PICRIN_BASE, "call/cc", pic_callcc_callcc); pic_redefun(pic, pic->PICRIN_BASE, "call/cc", pic_callcc_callcc);

View File

@ -0,0 +1,6 @@
(define-library (picrin control)
(import (picrin base))
(define escape call/cc) ; create a new global variable slot
(export escape))