mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

* runq.scm (runq-control): Corrected spelling of enqueue!.

Browse source 
(Thanks to Karl M. Hegbloom.)
This commit is contained in:
Mikael Djurfeldt 1998-04-15 08:30:19 +00:00
parent a3365d4711
commit 608cf70c13
3 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -14,6 +14,7 @@ Bug reports and fixes from:
Marcus Daniels Marcus Daniels
Fred Fish Fred Fish
Jesse N. Glick Jesse N. Glick
Karl M. Hegbloom
Dirk Herrmann Dirk Herrmann
Bill Janssen Bill Janssen
Shiro Kawai Shiro Kawai

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
1998-04-15 Mikael Djurfeldt <mdj@nada.kth.se>
* runq.scm (runq-control): Corrected spelling of enqueue!.
(Thanks to Karl M. Hegbloom.)
1998-03-30 Mikael Djurfeldt <mdj@nada.kth.se> 1998-03-30 Mikael Djurfeldt <mdj@nada.kth.se>
* boot-9.scm: Added new run-time option interface eval-options. * boot-9.scm: Added new run-time option interface eval-options.

2
ice-9/runq.scm
View file

@ -72,7 +72,7 @@
(define-public (runq-control q msg . args) (define-public (runq-control q msg . args)
(case msg (case msg
((add!) (for-each (lambda (t) (enq! q t)) args) '*unspecified*) ((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*) ((push!) (for-each (lambda (t) (q-push! q t)) args) '*unspecified*)
((empty?) (q-empty? q)) ((empty?) (q-empty? q))
((length) (q-length q)) ((length) (q-length q))