[bugfix] t/escape.scm doesn't work
This commit is contained in:
parent
5e6f6f85f4
commit
055691ebfc
|
@ -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);
|
||||
|
|
|
@ -260,6 +260,7 @@
|
|||
|
||||
(export call-with-current-continuation
|
||||
call/cc
|
||||
escape
|
||||
dynamic-wind
|
||||
values
|
||||
call-with-values)
|
||||
|
|
|
@ -1,6 +1,3 @@
|
|||
(define-library (picrin control)
|
||||
(import (picrin base))
|
||||
|
||||
(define escape call/cc) ; create a new global variable slot
|
||||
|
||||
(export escape))
|
||||
|
|
Loading…
Reference in New Issue