place-wait returns void for now

2011-06-10 11:11:14 -06:00 · 2011-06-10 11:11:14 -06:00 · 4dff43d4c5
commit 4dff43d4c5
parent c7f9a80de8
1 changed files with 6 additions and 0 deletions
--- a/src/racket/src/place.c
+++ b/src/racket/src/place.c
@ -802,13 +802,19 @@ static Scheme_Object *scheme_place_wait(int argc, Scheme_Object *args[]) {

    rc = scheme_make_integer((intptr_t)wd->rc);
    free(wd);
+    /*
    return rc;
+    */
+    return scheme_void;
  }
 # else
  {
    void *rcvoid;
    rcvoid = mz_proc_thread_wait((mz_proc_thread *)place->proc_thread);
+    /*
    return scheme_make_integer((intptr_t) rcvoid);
+    */
+    return scheme_void;
  }
 # endif
 }