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

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);

piclib/picrin/base.scm

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

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))