From 2e31f7d79230f622bed2650e351baab25fbcc50e Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 5 Dec 2008 12:57:36 -0600 Subject: [PATCH] fix help-lint errors --- basis/threads/threads-docs.factor | 5 +++-- core/io/streams/c/c-docs.factor | 6 +++--- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/basis/threads/threads-docs.factor b/basis/threads/threads-docs.factor index cc2216545d..a1d7e50594 100644 --- a/basis/threads/threads-docs.factor +++ b/basis/threads/threads-docs.factor @@ -1,6 +1,6 @@ USING: help.markup help.syntax kernel kernel.private io threads.private continuations init quotations strings -assocs heaps boxes namespaces deques ; +assocs heaps boxes namespaces deques dlists ; IN: threads ARTICLE: "threads-start/stop" "Starting and stopping threads" @@ -82,7 +82,7 @@ $nl { $notes "In most cases, user code should call " { $link spawn } " instead, however for control over the error handler quotation, threads can be created with " { $link } " then passed to " { $link (spawn) } "." } ; HELP: run-queue -{ $values { "queue" deque } } +{ $values { "dlist" dlist } } { $var-description "Global variable holding the queue of runnable threads. Calls to " { $link yield } " switch to the thread which has been in the queue for the longest period of time." $nl "By convention, threads are queued with " { $link push-front } @@ -97,6 +97,7 @@ HELP: resume-with { $description "Adds a thread to the end of the run queue together with an object to pass to the thread. The thread must have previously been suspended by a call to " { $link suspend } "; the object is returned from the " { $link suspend } " call." } ; HELP: sleep-queue +{ $values { "heap" min-heap } } { $var-description "A " { $link min-heap } " storing the queue of sleeping threads." } ; HELP: sleep-time diff --git a/core/io/streams/c/c-docs.factor b/core/io/streams/c/c-docs.factor index 6c640bbdeb..a579153353 100644 --- a/core/io/streams/c/c-docs.factor +++ b/core/io/streams/c/c-docs.factor @@ -61,13 +61,13 @@ HELP: fread ( n alien -- str/f ) { $errors "Throws an error if the input operation failed." } ; HELP: stdin-handle -{ $values { "in" "a C FILE* handle" } } +{ $values { "alien" "a C FILE* handle" } } { $description "Outputs the console standard input file handle." } ; HELP: stdout-handle -{ $values { "out" "a C FILE* handle" } } +{ $values { "alien" "a C FILE* handle" } } { $description "Outputs the console standard output file handle." } ; HELP: stderr-handle -{ $values { "out" "a C FILE* handle" } } +{ $values { "alien" "a C FILE* handle" } } { $description "Outputs the console standard error file handle." } ;