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

io.files.info.unix, sequences: few $examples and $unchecked-examples turn into $codes

db4
Keita Haga 2010-12-23 04:03:00 +09:00
parent dcb387630b
commit c3189054d1
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/io/files/info/unix/unix-docs.factor
View File

@ -102,16 +102,15 @@ HELP: set-file-permissions
{ "path" "a pathname string" } { "n" "an integer, interepreted as a string of bits" } } { "path" "a pathname string" } { "n" "an integer, interepreted as a string of bits" } }
{ $description "Sets the file permissions for a given file with the supplied Unix permissions integer. Supplying an octal number with " { $link POSTPONE: OCT: } " is recommended." } { $description "Sets the file permissions for a given file with the supplied Unix permissions integer. Supplying an octal number with " { $link POSTPONE: OCT: } " is recommended." }
{ $examples "Using the tradidional octal value:" { $examples "Using the tradidional octal value:"
{ $unchecked-example "USING: io.files.info.unix kernel ;" { $code "USING: io.files.info.unix kernel ;"
"\"resource:license.txt\" OCT: 755 set-file-permissions" "\"resource:license.txt\" OCT: 755 set-file-permissions"
""
} }
"Higher-level, setting named bits:" "Higher-level, setting named bits:"
{ $unchecked-example "USING: io.files.info.unix kernel literals ;" { $code "USING: io.files.info.unix kernel literals ;"
"\"resource:license.txt\"" "\"resource:license.txt\""
"flags{ USER-ALL GROUP-READ GROUP-EXECUTE OTHER-READ OTHER-EXECUTE }" "flags{ USER-ALL GROUP-READ GROUP-EXECUTE OTHER-READ OTHER-EXECUTE }"
"set-file-permissions" "set-file-permissions"
"" } }
} ; } ;
HELP: set-file-times HELP: set-file-times

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

@ -1343,10 +1343,9 @@ HELP: assert-sequence=
{ $description "Throws an error if all the elements of two sequences, taken pairwise, are not equal." } { $description "Throws an error if all the elements of two sequences, taken pairwise, are not equal." }
{ $notes "The sequences need not be of the same type." } { $notes "The sequences need not be of the same type." }
{ $examples { $examples
{ $example { $code
"USING: prettyprint sequences ;" "USING: prettyprint sequences ;"
"{ 1 2 3 } V{ 1 2 3 } assert-sequence=" "{ 1 2 3 } V{ 1 2 3 } assert-sequence="
""
} }
} ; } ;