Change polling intermittency of _t-univ.scm to match paper.

gambit · Aug 11, 2012 · 866d790 · 866d790
1 parent b7cda5d
commit 866d790
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/gsc/_t-univ.scm b/gsc/_t-univ.scm
@@ -966,18 +966,18 @@ var Gambit_poll;
 
 Gambit_stack[0] = false;
 
-var Gambit_poll_count = 0;
+var Gambit_poll_count = 1;
 
 if (this.hasOwnProperty('setTimeout')) {
   Gambit_poll = function (dest_bb) {
-                  Gambit_poll_count = 50;
+                  Gambit_poll_count = 100;
                   Gambit_stack.length = Gambit_sp + 1;
                   setTimeout(function () { Gambit_run(dest_bb); }, 1);
                   return false;
                 };
 } else {
   Gambit_poll = function (dest_bb) {
-                  Gambit_poll_count = 50;
+                  Gambit_poll_count = 100;
                   Gambit_stack.length = Gambit_sp + 1;
                   return dest_bb;
                 };
@@ -2224,7 +2224,7 @@ EOF
         (univ-call ctx (univ-prefix ctx "poll") expr))
       (univ-if-then-else
        ctx
-       (gen "--" (univ-prefix ctx "poll_count") " < 0")
+       (gen "--" (univ-prefix ctx "poll_count") " === 0")
        (univ-return-call ctx (univ-prefix ctx "poll") expr)
        (if call?
            (univ-return-call ctx expr)

diff --git a/include/stamp.h b/include/stamp.h
@@ -3,4 +3,4 @@
  */
 
 #define ___STAMP_YMD 20120811
-#define ___STAMP_HMS 162045
+#define ___STAMP_HMS 220121