diff --git a/basis/alien/structs/structs-docs.factor b/basis/alien/structs/structs-docs.factor index c2a7d43387..62a3817fec 100644 --- a/basis/alien/structs/structs-docs.factor +++ b/basis/alien/structs/structs-docs.factor @@ -23,11 +23,11 @@ $nl } "C structure objects can be allocated by calling " { $link } " or " { $link malloc-object } "." $nl -"Arrays of C structures can be created with the " { $vocab-link "struct-arrays" } " vocabulary." ; +"Arrays of C structures can be created with the " { $vocab-link "specialized-arrays" } " vocabulary." ; ARTICLE: "c-unions" "C unions" "A " { $snippet "union" } " in C defines a type large enough to hold its largest member. This is usually used to allocate a block of memory which can hold one of several types of values." { $subsection POSTPONE: C-UNION: } "C union objects can be allocated by calling " { $link } " or " { $link malloc-object } "." $nl -"Arrays of C unions can be created with the " { $vocab-link "struct-arrays" } " vocabulary." ; +"Arrays of C unions can be created with the " { $vocab-link "specialized-arrays" } " vocabulary." ; diff --git a/basis/io/files/info/unix/openbsd/openbsd.factor b/basis/io/files/info/unix/openbsd/openbsd.factor index fe94f70fd8..ef1b55cda3 100755 --- a/basis/io/files/info/unix/openbsd/openbsd.factor +++ b/basis/io/files/info/unix/openbsd/openbsd.factor @@ -49,6 +49,6 @@ M: openbsd statvfs>file-system-info ( file-system-info statvfs -- file-system-in M: openbsd file-systems ( -- seq ) f 0 0 getfsstat dup io-error - + [ dup byte-length 0 getfsstat io-error ] [ [ f_mntonname>> utf8 alien>string file-system-info ] { } map-as ] bi ; diff --git a/basis/io/launcher/windows/windows.factor b/basis/io/launcher/windows/windows.factor index 475be5d70c..39455da578 100755 --- a/basis/io/launcher/windows/windows.factor +++ b/basis/io/launcher/windows/windows.factor @@ -6,8 +6,9 @@ io.ports windows.types math windows.kernel32 namespaces make io.launcher kernel sequences windows.errors splitting system threads init strings combinators io.backend accessors concurrency.flags io.files assocs io.files.private windows -destructors specialized-arrays.alien classes classes.struct ; +destructors classes classes.struct specialized-arrays ; SPECIALIZED-ARRAY: ushort +SPECIALIZED-ARRAY: void* IN: io.launcher.windows TUPLE: CreateProcess-args diff --git a/basis/sequences/complex/complex-docs.factor b/basis/sequences/complex/complex-docs.factor index 87ee32a0fc..699fd5c4d9 100644 --- a/basis/sequences/complex/complex-docs.factor +++ b/basis/sequences/complex/complex-docs.factor @@ -12,7 +12,7 @@ ABOUT: "sequences.complex" HELP: complex-sequence { $class-description "Sequence wrapper class that transforms a sequence of " { $link real } " number values into a sequence of " { $link complex } " values, treating the underlying sequence as pairs of alternating real and imaginary values." } { $examples { $example <" -USING: prettyprint specialized-arrays ; +USING: prettyprint specialized-arrays sequences.complex sequences arrays ; SPECIALIZED-ARRAY: double double-array{ 1.0 -1.0 -2.0 2.0 3.0 0.0 } >array . @@ -22,9 +22,8 @@ HELP: { $values { "sequence" sequence } { "complex-sequence" complex-sequence } } { $description "Wraps " { $snippet "sequence" } " in a " { $link complex-sequence } "." } { $examples { $example <" -USING: prettyprint -specialized-arrays sequences.complex -sequences arrays ; +USING: prettyprint specialized-arrays +sequences.complex sequences arrays ; SPECIALIZED-ARRAY: double double-array{ 1.0 -1.0 -2.0 2.0 3.0 0.0 } second . "> "C{ -2.0 2.0 }" } } ;