[bugfix] t/escape.scm doesn't work

This commit is contained in:
Yuichi Nishiwaki 2015-07-06 14:19:12 +09:00
parent 5e6f6f85f4
commit 055691ebfc
3 changed files with 2 additions and 3 deletions

View File

@ -308,6 +308,7 @@ pic_init_cont(pic_state *pic)
{
pic_defun(pic, "call-with-current-continuation", pic_cont_callcc);
pic_defun(pic, "call/cc", pic_cont_callcc);
pic_defun(pic, "escape", pic_cont_callcc);
pic_defun(pic, "dynamic-wind", pic_cont_dynamic_wind);
pic_defun(pic, "values", pic_cont_values);

View File

@ -260,6 +260,7 @@
(export call-with-current-continuation
call/cc
escape
dynamic-wind
values
call-with-values)

View File

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