Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit 866d790ebbeba9ae71e364ea4f53fe2b7e5bc23b 1 parent b7cda5d
@feeley authored
Showing with 5 additions and 5 deletions.
  1. +4 −4 gsc/_t-univ.scm
  2. +1 −1  include/stamp.h
View
8 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)
View
2  include/stamp.h
@@ -3,4 +3,4 @@
*/
#define ___STAMP_YMD 20120811
-#define ___STAMP_HMS 162045
+#define ___STAMP_HMS 220121
Please sign in to comment.
Something went wrong with that request. Please try again.