Merge commit '7059ee97ac8ac1c37b9e09d725705d2f1d8340ef'

lispBM/lispBM/doc/lbmref.md

@@ -676,6 +676,27 @@ Example
 ```
 ---
 
+### undefine
+
+A definition in the global can be removed using undefine.  The form of
+an undefine expression is `(undefine name-expr)` where name-expr
+should evaluate to a symbol (for example `'apa`).
+
+Example
+```lisp
+(undefine 'apa)
+```
+
+It is also possible to undefine several bindings at the same time by
+providing a list of names.
+
+Example
+```lisp
+(undefine '(apa bepa cepa))
+```
+
+---
+
 ### setvar
 
 The `setvar` form is used to change the value of some variable in an environment.

lispBM/lispBM/src/eval_cps.c

@@ -504,7 +504,6 @@ static void finish_ctx(void) {
   if (!ctx_running) {
     return;
   }
-
   /* Drop the continuation stack immediately to free up lbm_memory */
   lbm_stack_free(&ctx_running->K);
 
@@ -515,6 +514,7 @@ static void finish_ctx(void) {
     lbm_memory_free((lbm_uint*)ctx_running->error_reason);
   }
 
+  lbm_memory_free((lbm_uint*) ctx_running->mailbox);
   lbm_memory_free((lbm_uint*)ctx_running);
   ctx_running = NULL;
 }
@@ -1578,6 +1578,7 @@ static inline void cont_wait(eval_context_t *ctx) {
 
   lbm_blocked_iterator(context_exists, &cid, &exists);
   lbm_running_iterator(context_exists, &cid, &exists);
+  lbm_sleeping_iterator(context_exists, &cid, &exists);
 
   if (ctx_running->id == cid) {
     exists = true;