conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extlib/benz/cont.c
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-with-current-continuation", pic_cont_callcc);
pic_defun(pic, "call/cc", 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, "dynamic-wind", pic_cont_dynamic_wind);
pic_defun(pic, "values", pic_cont_values); pic_defun(pic, "values", pic_cont_values);

1
piclib/picrin/base.scm
View File

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

3
piclib/picrin/control.scm
View File

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