From 055691ebfc6dfde7c4faf79f189c1e610431c535 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Mon, 6 Jul 2015 14:19:12 +0900 Subject: [PATCH] [bugfix] t/escape.scm doesn't work --- extlib/benz/cont.c | 1 + piclib/picrin/base.scm | 1 + piclib/picrin/control.scm | 3 --- 3 files changed, 2 insertions(+), 3 deletions(-) diff --git a/extlib/benz/cont.c b/extlib/benz/cont.c index 5fb0b06a..3ab1ea84 100644 --- a/extlib/benz/cont.c +++ b/extlib/benz/cont.c @@ -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); diff --git a/piclib/picrin/base.scm b/piclib/picrin/base.scm index f0d988a5..f88c33ca 100644 --- a/piclib/picrin/base.scm +++ b/piclib/picrin/base.scm @@ -260,6 +260,7 @@ (export call-with-current-continuation call/cc + escape dynamic-wind values call-with-values) diff --git a/piclib/picrin/control.scm b/piclib/picrin/control.scm index 51c6c7e7..5798655d 100644 --- a/piclib/picrin/control.scm +++ b/piclib/picrin/control.scm @@ -1,6 +1,3 @@ (define-library (picrin control) (import (picrin base)) - - (define escape call/cc) ; create a new global variable slot - (export escape))