From 608cf70c130c90d7cd5b121bd941c6e99d0750d2 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 15 Apr 1998 08:30:19 +0000 Subject: [PATCH] * runq.scm (runq-control): Corrected spelling of enqueue!. (Thanks to Karl M. Hegbloom.) --- THANKS | 1 + ice-9/ChangeLog | 5 +++++ ice-9/runq.scm | 2 +- 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/THANKS b/THANKS index 9061a9c24..d1731573d 100644 --- a/THANKS +++ b/THANKS @@ -14,6 +14,7 @@ Bug reports and fixes from: Marcus Daniels Fred Fish Jesse N. Glick + Karl M. Hegbloom Dirk Herrmann Bill Janssen Shiro Kawai diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 5b861175c..cb8da9e98 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,8 @@ +1998-04-15 Mikael Djurfeldt + + * runq.scm (runq-control): Corrected spelling of enqueue!. + (Thanks to Karl M. Hegbloom.) + 1998-03-30 Mikael Djurfeldt * boot-9.scm: Added new run-time option interface eval-options. diff --git a/ice-9/runq.scm b/ice-9/runq.scm index 60ad3161b..9adb89776 100644 --- a/ice-9/runq.scm +++ b/ice-9/runq.scm @@ -72,7 +72,7 @@ (define-public (runq-control q msg . args) (case msg ((add!) (for-each (lambda (t) (enq! q t)) args) '*unspecified*) - ((enque!) (for-each (lambda (t) (enq! q t)) args) '*unspecified*) + ((enqueue!) (for-each (lambda (t) (enq! q t)) args) '*unspecified*) ((push!) (for-each (lambda (t) (q-push! q t)) args) '*unspecified*) ((empty?) (q-empty? q)) ((length) (q-length q))