diff --git a/basis/io/files/info/unix/unix-docs.factor b/basis/io/files/info/unix/unix-docs.factor index c461c642b7..c8fc965eca 100644 --- a/basis/io/files/info/unix/unix-docs.factor +++ b/basis/io/files/info/unix/unix-docs.factor @@ -102,16 +102,15 @@ HELP: set-file-permissions { "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." } { $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" - "" } "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\"" "flags{ USER-ALL GROUP-READ GROUP-EXECUTE OTHER-READ OTHER-EXECUTE }" "set-file-permissions" - "" } + } } ; HELP: set-file-times diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor index 8832cde3e4..29067a133e 100644 --- a/core/sequences/sequences-docs.factor +++ b/core/sequences/sequences-docs.factor @@ -1343,10 +1343,9 @@ HELP: assert-sequence= { $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." } { $examples - { $example + { $code "USING: prettyprint sequences ;" "{ 1 2 3 } V{ 1 2 3 } assert-sequence=" - "" } } ;