steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix help lint

db4
Slava Pestov 2008-11-24 00:51:46 -06:00
parent b48c051b1b
commit fb511f4fe8
4 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/present/present-docs.factor
View File

@ -8,6 +8,6 @@ ARTICLE: "present" "Converting objects to human-readable strings"
HELP: present
{ $values { "object" object } { "string" string } }
{ $contract "Outputs a human-readable string from an object." }
{ $notes "New methods can be defined by user code. Most often, this is done so that the object can be used with various words in the " { $vocab-link "html.components" } " or " { $link "urls" } " vocabularies." } ;
{ $notes "New methods can be defined by user code. Most often, this is done so that the object can be used with various words in the " { $vocab-link "html.components" } " or " { $vocab-link "urls" } " vocabularies." } ;
ABOUT: "present"

2
basis/threads/threads.factor
View File

@ -89,7 +89,7 @@ PRIVATE>
f >>state
check-registered 2array run-queue push-front ;
: sleep-time ( -- ms/f )
: sleep-time ( -- us/f )
{
{ [ run-queue deque-empty? not ] [ 0 ] }
{ [ sleep-queue heap-empty? ] [ f ] }

4
core/io/backend/backend.factor
View File

@ -8,7 +8,7 @@ SYMBOL: io-backend
SINGLETON: c-io-backend
c-io-backend io-backend set-global
io-backend global [ c-io-backend or ] change-at
HOOK: init-io io-backend ( -- )
@ -20,7 +20,7 @@ HOOK: (init-stdio) io-backend ( -- stdin stdout stderr )
[ utf8 <encoder> output-stream set-global ]
[ utf8 <encoder> error-stream set-global ] tri* ;
HOOK: io-multiplex io-backend ( ms -- )
HOOK: io-multiplex io-backend ( us -- )
HOOK: normalize-directory io-backend ( str -- newstr )

3
core/system/system-docs.factor
View File

@ -12,6 +12,7 @@ ARTICLE: "system" "System interface"
{ $subsection image }
"Getting the current time:"
{ $subsection micros }
{ $subsection millis }
"Exiting the Factor VM:"
{ $subsection exit } ;
@ -70,7 +71,7 @@ HELP: micros ( -- us )
{ $notes "This is a low-level word. The " { $vocab-link "calendar" } " vocabulary provides features for date/time arithmetic and formatting." } ;
HELP: millis ( -- ms )
{ $values { "us" integer } }
{ $values { "ms" integer } }
{ $description "Outputs the number of milliseconds ellapsed since midnight January 1, 1970." }
{ $notes "This is a low-level word. The " { $vocab-link "calendar" } " vocabulary provides features for date/time arithmetic and formatting." } ;