From 43fb73fae69fda785039e3d502aaa809c5a97599 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 6 Aug 2015 17:05:12 -0500 Subject: [PATCH] factor: Rename I[ ]I to [I I]. Fix places where we do "string"token without whitespace. --- .../remote-control/remote-control-tests.factor | 4 ++-- basis/bootstrap/image/image-docs.factor | 2 +- .../compiler/cfg/stacks/local/local-tests.factor | 2 +- basis/editors/textedit/textedit.factor | 2 +- basis/game/input/scancodes/scancodes.factor | 4 ++-- .../generalizations/generalizations-docs.factor | 2 +- basis/gobject-introspection/loader/loader.factor | 2 +- basis/help/tutorial/tutorial.factor | 2 +- basis/interpolate/interpolate-tests.factor | 2 +- basis/interpolate/interpolate.factor | 4 ++-- basis/math/statistics/statistics-docs.factor | 16 ++++++++-------- basis/opengl/opengl-docs.factor | 2 +- basis/opengl/shaders/shaders-docs.factor | 4 ++-- basis/peg/parsers/parsers-docs.factor | 4 ++-- .../simple-tokenizer-docs.factor | 2 +- core/strings/strings-docs.factor | 2 +- extra/backtrack/backtrack-docs.factor | 2 +- extra/game/input/demos/key-caps/key-caps.factor | 4 ++-- extra/images/viewer/viewer-docs.factor | 2 +- .../irc/client/internals/internals-tests.factor | 2 +- extra/math/dual/dual-docs.factor | 2 +- extra/math/splines/splines-docs.factor | 2 +- extra/opencl/opencl-docs.factor | 2 +- .../partial-continuations-docs.factor | 2 +- extra/s3/s3-docs.factor | 8 ++++---- 25 files changed, 41 insertions(+), 41 deletions(-) diff --git a/basis/alien/remote-control/remote-control-tests.factor b/basis/alien/remote-control/remote-control-tests.factor index 599cf62d4b..e8d132f6db 100644 --- a/basis/alien/remote-control/remote-control-tests.factor +++ b/basis/alien/remote-control/remote-control-tests.factor @@ -18,7 +18,7 @@ IN: alien.remote-control.tests image-path :> image [ - I[ + [I #include #include #include @@ -34,7 +34,7 @@ int main(int argc, char **argv) printf("Done.\n"); return 0; } - ]I + I] ] with-string-writer [ compile-file ] with-temp-directory [ run-test ] with-temp-directory ; diff --git a/basis/bootstrap/image/image-docs.factor b/basis/bootstrap/image/image-docs.factor index ed937e5cbc..aae495aa52 100644 --- a/basis/bootstrap/image/image-docs.factor +++ b/basis/bootstrap/image/image-docs.factor @@ -18,7 +18,7 @@ HELP: architecture { $var-description "Bootstrap architecture name" } ; HELP: bootstrap-startup-quot -{ $var-description "This image's startup quotation or " { $link f } ". "} ; +{ $var-description "This image's startup quotation or " { $link f } ". " } ; HELP: define-sub-primitive { $values { "quot" quotation } { "word" word } } diff --git a/basis/compiler/cfg/stacks/local/local-tests.factor b/basis/compiler/cfg/stacks/local/local-tests.factor index df3cfe3e8b..4ca0aa983f 100644 --- a/basis/compiler/cfg/stacks/local/local-tests.factor +++ b/basis/compiler/cfg/stacks/local/local-tests.factor @@ -64,7 +64,7 @@ IN: compiler.cfg.stacks.local.tests } } [ 3 D 0 replace-loc [ - "eh", + "eh" , replaces get height-state get emit-changes ] V{ } make ] cfg-unit-test diff --git a/basis/editors/textedit/textedit.factor b/basis/editors/textedit/textedit.factor index 92c4c05cc2..c21004b06d 100644 --- a/basis/editors/textedit/textedit.factor +++ b/basis/editors/textedit/textedit.factor @@ -7,4 +7,4 @@ textedit editor-class set-global M: textedit editor-command ( file line -- command ) drop - [ "open" , "-a" , "TextEdit", , ] { } make ; + [ "open" , "-a" , "TextEdit" , , ] { } make ; diff --git a/basis/game/input/scancodes/scancodes.factor b/basis/game/input/scancodes/scancodes.factor index f31bc35bcf..bf3c60d39c 100644 --- a/basis/game/input/scancodes/scancodes.factor +++ b/basis/game/input/scancodes/scancodes.factor @@ -47,8 +47,8 @@ CONSTANT: key-tab 0x002b CONSTANT: key-space 0x002c CONSTANT: key-- 0x002d CONSTANT: key-= 0x002e -CONSTANT: key-[ 0x002f -CONSTANT: key-] 0x0030 +CONSTANT: key-lbracket 0x002f +CONSTANT: key-rbracket 0x0030 CONSTANT: key-\ 0x0031 CONSTANT: key-#-non-us 0x0032 CONSTANT: key-; 0x0033 diff --git a/basis/generalizations/generalizations-docs.factor b/basis/generalizations/generalizations-docs.factor index 65000d7cc9..f4a15411f9 100644 --- a/basis/generalizations/generalizations-docs.factor +++ b/basis/generalizations/generalizations-docs.factor @@ -269,7 +269,7 @@ HELP: n*quot "[ + + + ]" } } -{ $description "Construct a quotation containing the contents of " { $snippet "seq" } " repeated " { $snippet "n"} " times." } ; +{ $description "Construct a quotation containing the contents of " { $snippet "seq" } " repeated " { $snippet "n" } " times." } ; ARTICLE: "shuffle-generalizations" "Generalized shuffle words" { $subsections diff --git a/basis/gobject-introspection/loader/loader.factor b/basis/gobject-introspection/loader/loader.factor index d73fa19204..d132b56bcc 100644 --- a/basis/gobject-introspection/loader/loader.factor +++ b/basis/gobject-introspection/loader/loader.factor @@ -34,7 +34,7 @@ IN: gobject-introspection.loader : xml>type ( xml -- type ) dup name>> main>> { { "type" [ xml>simple-type ] } - { "array"[ xml>array-type ] } + { "array" [ xml>array-type ] } { "callback" [ xml>inner-callback-type ] } { "varargs" [ xml>varargs-type ] } } case ; diff --git a/basis/help/tutorial/tutorial.factor b/basis/help/tutorial/tutorial.factor index a87f005e35..6e9b40bf07 100644 --- a/basis/help/tutorial/tutorial.factor +++ b/basis/help/tutorial/tutorial.factor @@ -189,7 +189,7 @@ $nl "Now if you press " { $command tool "common" refresh-all } ", the source file should reload without any errors. You can run unit tests again, and this time, they will all pass:" { $code "\"palindrome\" test" } $nl -"Congratulations, you have now completed " { $link "first-program" } "!"; +"Congratulations, you have now completed " { $link "first-program" } "!" ; ARTICLE: "first-program" "Your first program" "In this tutorial, we will write a simple Factor program which prompts the user to enter a word, and tests if it is a palindrome (that is, the word is spelled the same backwards and forwards)." diff --git a/basis/interpolate/interpolate-tests.factor b/basis/interpolate/interpolate-tests.factor index 01d6469972..b5a44064f8 100644 --- a/basis/interpolate/interpolate-tests.factor +++ b/basis/interpolate/interpolate-tests.factor @@ -40,6 +40,6 @@ IN: interpolate.tests { "Oops, I accidentally the whole economy..." } [ [let "economy" :> noun - "accidentally" [ I[ Oops, I ${0} the whole ${noun}...]I ] with-string-writer + "accidentally" [ [I Oops, I ${0} the whole ${noun}...I] ] with-string-writer ] ] unit-test diff --git a/basis/interpolate/interpolate.factor b/basis/interpolate/interpolate.factor index 135b2fd816..59bcc06b17 100644 --- a/basis/interpolate/interpolate.factor +++ b/basis/interpolate/interpolate.factor @@ -76,6 +76,6 @@ MACRO: interpolate ( str -- quot ) : interpolate-locals ( str -- quot ) [ dup search [ [ ] ] [ [ get ] ] ?if ] interpolate-quot ; -SYNTAX: I[ - "]I" parse-multiline-string +SYNTAX: [I + "I]" parse-multiline-string interpolate-locals append! ; diff --git a/basis/math/statistics/statistics-docs.factor b/basis/math/statistics/statistics-docs.factor index bde12fa763..5c3ed0653b 100644 --- a/basis/math/statistics/statistics-docs.factor +++ b/basis/math/statistics/statistics-docs.factor @@ -3,13 +3,13 @@ kernel quotations sequences math ; IN: math.statistics HELP: geometric-mean -{ $values { "seq" sequence } { "x" "a non-negative real number"} } +{ $values { "seq" sequence } { "x" "a non-negative real number" } } { $description "Computes the geometric mean of all elements in " { $snippet "seq" } ". The geometric mean measures the central tendency of a data set and minimizes the effects of extreme values." } { $examples { $example "USING: math.statistics prettyprint ;" "{ 1 2 3 } geometric-mean ." "1.81712059283214" } } { $errors "Throws a " { $link signal-error. } " (square-root of 0) if the sequence is empty." } ; HELP: harmonic-mean -{ $values { "seq" sequence } { "x" "a non-negative real number"} } +{ $values { "seq" sequence } { "x" "a non-negative real number" } } { $description "Computes the harmonic mean of the elements in " { $snippet "seq" } ". The harmonic mean is appropriate when the average of rates is desired." } { $notes "Positive reals only." } { $examples { $example "USING: math.statistics prettyprint ;" "{ 1 2 3 } harmonic-mean ." "6/11" } } @@ -21,13 +21,13 @@ HELP: kth-smallest { $examples { $example "USING: math.statistics prettyprint ;" "{ 3 1 2 } 1 kth-smallest ." "2" } } ; HELP: mean -{ $values { "seq" sequence } { "x" "a non-negative real number"} } +{ $values { "seq" sequence } { "x" "a non-negative real number" } } { $description "Computes the arithmetic mean of the elements in " { $snippet "seq" } "." } { $examples { $example "USING: math.statistics prettyprint ;" "{ 1 2 3 } mean ." "2" } } { $errors "Throws a " { $link signal-error. } " (divide by zero) if the sequence is empty." } ; HELP: median -{ $values { "seq" sequence } { "x" "a non-negative real number"} } +{ $values { "seq" sequence } { "x" "a non-negative real number" } } { $description "Computes the median of " { $snippet "seq" } " by finding the middle element of the sequence using " { $link kth-smallest } ". If there is an even number of elements in the sequence, the median is not unique, so the mean of the two middle values is output." } { $examples { $example "USING: math.statistics prettyprint ;" "{ 1 2 3 } median ." "2" } @@ -35,7 +35,7 @@ HELP: median { $errors "Throws a " { $link signal-error. } " (divide by zero) if the sequence is empty." } ; HELP: range -{ $values { "seq" sequence } { "x" "a non-negative real number"} } +{ $values { "seq" sequence } { "x" "a non-negative real number" } } { $description "Computes the difference of the maximum and minimum values in " { $snippet "seq" } "." } { $examples { $example "USING: math.statistics prettyprint ;" "{ 1 2 3 } range ." "2" } @@ -52,20 +52,20 @@ HELP: minmax } ; HELP: sample-std -{ $values { "seq" sequence } { "x" "a non-negative real number"} } +{ $values { "seq" sequence } { "x" "a non-negative real number" } } { $description "Computes the sample standard deviation of " { $snippet "seq" } ", which is the square root of the sample variance. It measures how widely spread the values in a sequence are about the mean for a random subset of a dataset." } { $examples { $example "USING: math.statistics prettyprint ;" "{ 7 8 9 } sample-std ." "1.0" } } ; HELP: sample-ste - { $values { "seq" sequence } { "x" "a non-negative real number"} } + { $values { "seq" sequence } { "x" "a non-negative real number" } } { $description "Computes the standard error of the mean for " { $snippet "seq" } ". It's defined as the standard deviation divided by the square root of the length of the sequence, and measures uncertainty associated with the estimate of the mean." } { $examples { $example "USING: math.statistics prettyprint ;" "{ -2 2 } sample-ste ." "2.0" } } ; HELP: sample-var -{ $values { "seq" sequence } { "x" "a non-negative real number"} } +{ $values { "seq" sequence } { "x" "a non-negative real number" } } { $description "Computes the variance of " { $snippet "seq" } ". It's a measurement of the spread of values in a sequence." } { $notes "If the number of elements in " { $snippet "seq" } " is 1 or less, it outputs 0." } { $examples diff --git a/basis/opengl/opengl-docs.factor b/basis/opengl/opengl-docs.factor index 821885b4e8..aa22bcbfa8 100644 --- a/basis/opengl/opengl-docs.factor +++ b/basis/opengl/opengl-docs.factor @@ -45,7 +45,7 @@ HELP: bind-texture-unit { $description "Binds texture " { $snippet "id" } " to texture target " { $snippet "target" } " of texture unit " { $snippet "unit" } ". Equivalent to " { $snippet "unit glActiveTexture target id glBindTexture" } "." } ; HELP: set-draw-buffers -{ $values { "buffers" "A sequence of buffer words (e.g. " { $snippet "GL_BACK" } ", " { $snippet "GL_COLOR_ATTACHMENT0" } ")"} } +{ $values { "buffers" "A sequence of buffer words (e.g. " { $snippet "GL_BACK" } ", " { $snippet "GL_COLOR_ATTACHMENT0" } ")" } } { $description "Wrapper for " { $link glDrawBuffers } ". Sets up the buffers named in the sequence for simultaneous drawing." } ; HELP: do-attribs diff --git a/basis/opengl/shaders/shaders-docs.factor b/basis/opengl/shaders/shaders-docs.factor index 30a4cff0b6..87185a43b1 100644 --- a/basis/opengl/shaders/shaders-docs.factor +++ b/basis/opengl/shaders/shaders-docs.factor @@ -16,14 +16,14 @@ HELP: gl-shader HELP: vertex-shader { $class-description { $snippet "vertex-shader" } " is the predicate class of " { $link gl-shader } " objects that refer to shaders of type " { $snippet "GL_VERTEX_SHADER" } ". In addition to the " { $snippet "gl-shader" } " words, the following vertex shader-specific functions are defined:" { $list - { { $link } " - Compile GLSL code into a vertex shader object "} + { { $link } " - Compile GLSL code into a vertex shader object " } } } ; HELP: fragment-shader { $class-description { $snippet "fragment-shader" } " is the predicate class of " { $link gl-shader } " objects that refer to shaders of type " { $snippet "GL_FRAGMENT_SHADER" } ". In addition to the " { $snippet "gl-shader" } " words, the following fragment shader-specific functions are defined:" { $list - { { $link } " - Compile GLSL code into a fragment shader object "} + { { $link } " - Compile GLSL code into a fragment shader object " } } } ; diff --git a/basis/peg/parsers/parsers-docs.factor b/basis/peg/parsers/parsers-docs.factor index b389032fb2..d96cd6b08e 100644 --- a/basis/peg/parsers/parsers-docs.factor +++ b/basis/peg/parsers/parsers-docs.factor @@ -84,7 +84,7 @@ HELP: at-least-n } { $description "Returns a parser that matches n or more repetitions of the input parser." } { $examples - { $code "USING: peg peg.parsers prettyprint ;" "\"aaa\" \"a\" token 4 at-least-n parse => exception"} + { $code "USING: peg peg.parsers prettyprint ;" "\"aaa\" \"a\" token 4 at-least-n parse => exception" } { $example "USING: peg peg.parsers prettyprint ;" "\"aaaa\" \"a\" token 4 at-least-n parse ." "V{ \"a\" \"a\" \"a\" \"a\" }" } { $example "USING: peg peg.parsers prettyprint ;" "\"aaaaa\" \"a\" token 4 at-least-n parse ." "V{ \"a\" \"a\" \"a\" \"a\" \"a\" }" } } { $see-also exactly-n at-most-n from-m-to-n } ; @@ -174,6 +174,6 @@ HELP: range-pattern "range of characters from the first to the second, inclusive." { $examples { $example "USING: peg peg.parsers prettyprint strings ;" "\"a\" \"_a-zA-Z\" range-pattern parse 1string ." "\"a\"" } - { $code "USING: peg peg.parsers prettyprint ;\n\"0\" \"^0-9\" range-pattern parse => exception"} + { $code "USING: peg peg.parsers prettyprint ;\n\"0\" \"^0-9\" range-pattern parse => exception" } } } ; diff --git a/basis/simple-tokenizer/simple-tokenizer-docs.factor b/basis/simple-tokenizer/simple-tokenizer-docs.factor index 57e14f09ba..ff808fb45d 100644 --- a/basis/simple-tokenizer/simple-tokenizer-docs.factor +++ b/basis/simple-tokenizer/simple-tokenizer-docs.factor @@ -7,7 +7,7 @@ HELP: tokenize "Tokenize a string. Supported syntax:" { $list { { $snippet "foo bar baz" } " - simple tokens" } - { { $snippet "foo\\ bar" } " - token with an escaped space"} + { { $snippet "foo\\ bar" } " - token with an escaped space" } { { $snippet "\"foo bar\"" } " - quoted token" } } } ; diff --git a/core/strings/strings-docs.factor b/core/strings/strings-docs.factor index b176b8868e..571b7597be 100644 --- a/core/strings/strings-docs.factor +++ b/core/strings/strings-docs.factor @@ -44,7 +44,7 @@ HELP: { $description "Creates a new string with the given length and all characters initially set to " { $snippet "ch" } "." } ; HELP: 1string -{ $values { "ch" "a character"} { "str" string } } +{ $values { "ch" "a character" } { "str" string } } { $description "Outputs a string of one character." } ; HELP: >string diff --git a/extra/backtrack/backtrack-docs.factor b/extra/backtrack/backtrack-docs.factor index d9e344b130..f41e9b534d 100644 --- a/extra/backtrack/backtrack-docs.factor +++ b/extra/backtrack/backtrack-docs.factor @@ -18,7 +18,7 @@ HELP: amb ; HELP: cut-amb -{ $description "Reset the amb system. Calling this word resets the whole stack of " { $link amb } " calls and should not be done lightly."} +{ $description "Reset the amb system. Calling this word resets the whole stack of " { $link amb } " calls and should not be done lightly." } { $see-also amb fail } ; diff --git a/extra/game/input/demos/key-caps/key-caps.factor b/extra/game/input/demos/key-caps/key-caps.factor index 1788ad1320..5e96780bb9 100644 --- a/extra/game/input/demos/key-caps/key-caps.factor +++ b/extra/game/input/demos/key-caps/key-caps.factor @@ -49,8 +49,8 @@ CONSTANT: key-locations H{ { key-i { { 85 25 } { 10 10 } } } { key-o { { 95 25 } { 10 10 } } } { key-p { { 105 25 } { 10 10 } } } - { key-[ { { 115 25 } { 10 10 } } } - { key-] { { 125 25 } { 10 10 } } } + { key-lbracket { { 115 25 } { 10 10 } } } + { key-rbracket { { 125 25 } { 10 10 } } } { key-\ { { 135 25 } { 15 10 } } } { key-caps-lock { { 0 35 } { 20 10 } } } diff --git a/extra/images/viewer/viewer-docs.factor b/extra/images/viewer/viewer-docs.factor index 0288007114..ee1b97c565 100644 --- a/extra/images/viewer/viewer-docs.factor +++ b/extra/images/viewer/viewer-docs.factor @@ -70,7 +70,7 @@ HELP: stop-control { $description "Removes the connection between the gadget and it's model" } ; ARTICLE: "images.viewer" "Displaying Images" "The " { $vocab-link "images.viewer" } " vocabulary uses the " { $vocab-link "opengl.textures" } -" vocabulary to display any instance of " { $link image } "."$nl +" vocabulary to display any instance of " { $link image } "." $nl "An " { $link image-gadget } " can be used for static images and " { $instance image-control } " for changing images (for example a video feed). For changing images, the image should be contained in " { $instance model } ". Change the model value with " { $link set-model } " or mutate the image and call " diff --git a/extra/irc/client/internals/internals-tests.factor b/extra/irc/client/internals/internals-tests.factor index 43c9a6ad76..aa3b14b381 100644 --- a/extra/irc/client/internals/internals-tests.factor +++ b/extra/irc/client/internals/internals-tests.factor @@ -113,7 +113,7 @@ M: mb-writer dispose drop ; ] unit-test ] spawning-irc -[ { join_ "#factortest"} [ +[ { join_ "#factortest" } [ "#factortest" [ %add-named-chat ] keep { ":factorbot!n=factorbo@some.where JOIN :#factortest" ":ircserver.net 353 factorbot @ #factortest :@factorbot " diff --git a/extra/math/dual/dual-docs.factor b/extra/math/dual/dual-docs.factor index 3dcce95dcb..ec8a15e0e4 100644 --- a/extra/math/dual/dual-docs.factor +++ b/extra/math/dual/dual-docs.factor @@ -47,7 +47,7 @@ HELP: unpack-dual ARTICLE: "math.dual" "Dual Numbers" "The " { $vocab-link "math.dual" } " vocabulary implements dual numbers, along with arithmetic methods for working with them. Many of the functions in " { $vocab-link "math.functions" } " are extended to work with dual numbers." $nl -"Dual numbers are ordered pairs " { $snippet ""} "--an ordinary part and an epsilon part--with component-wise addition and multiplication defined by "{ $snippet "* = " } ". They are analagous to complex numbers with " { $snippet "i^2 = 0" } "instead of " { $snippet "i^2 = -1" } ". For well-behaved functions " { $snippet "f" } ", " { $snippet "f() = f(o1) + e1*f'(o1)" } ", where " { $snippet "f'"} " is the derivative of " { $snippet "f" } "." +"Dual numbers are ordered pairs " { $snippet "" } "--an ordinary part and an epsilon part--with component-wise addition and multiplication defined by " { $snippet "* = " } ". They are analagous to complex numbers with " { $snippet "i^2 = 0" } "instead of " { $snippet "i^2 = -1" } ". For well-behaved functions " { $snippet "f" } ", " { $snippet "f() = f(o1) + e1*f'(o1)" } ", where " { $snippet "f'" } " is the derivative of " { $snippet "f" } "." ; ABOUT: "math.dual" diff --git a/extra/math/splines/splines-docs.factor b/extra/math/splines/splines-docs.factor index 62ff1418cd..379434302d 100644 --- a/extra/math/splines/splines-docs.factor +++ b/extra/math/splines/splines-docs.factor @@ -39,6 +39,6 @@ HELP: { $description "Creates a sequence of cubic hermite curves (each a sequence of polynomials) passing through the given points, generating tangents with the given tuning parameters." } ; ARTICLE: "math.splines" "Common parametric curves." -"The curve creating functions create sequences of polynomials, one for each degree of the input points. The spline creating functions create sequences of these curve polynomial sequences. The " { $vocab-link "math.splines.viewer" } " vocabulary provides a gadget to evaluate the generated polynomials and view the results."; +"The curve creating functions create sequences of polynomials, one for each degree of the input points. The spline creating functions create sequences of these curve polynomial sequences. The " { $vocab-link "math.splines.viewer" } " vocabulary provides a gadget to evaluate the generated polynomials and view the results." ; ABOUT: "math.splines" diff --git a/extra/opencl/opencl-docs.factor b/extra/opencl/opencl-docs.factor index a4285c3b5b..48e1f124a0 100644 --- a/extra/opencl/opencl-docs.factor +++ b/extra/opencl/opencl-docs.factor @@ -125,7 +125,7 @@ HELP: cl-platform HELP: cl-platforms { $values - { "platforms" "sequence of cl-platform"} + { "platforms" "sequence of cl-platform" } } { $description "Returns the platforms available for OpenCL computation on this hardware." } ; diff --git a/extra/partial-continuations/partial-continuations-docs.factor b/extra/partial-continuations/partial-continuations-docs.factor index 06b994ae75..2eea262a56 100644 --- a/extra/partial-continuations/partial-continuations-docs.factor +++ b/extra/partial-continuations/partial-continuations-docs.factor @@ -3,7 +3,7 @@ USING: help.markup help.syntax kernel ; HELP: breset { $values { "quot" { $quotation ( r -- v ) } } } -{ $description "Marks the boundary of the partial continuation. The quotation has stack effect " { $snippet "( r -- v )" } ", where " { $snippet "r" } " identifies the " { $link breset } " in scope and should be passed to "{ $link bshift } " to mark the boundary of the continuation." } +{ $description "Marks the boundary of the partial continuation. The quotation has stack effect " { $snippet "( r -- v )" } ", where " { $snippet "r" } " identifies the " { $link breset } " in scope and should be passed to " { $link bshift } " to mark the boundary of the continuation." } { $notes "It is important to note that even if the quotation discards items on the stack, the stack will be restored to the way it was before it is called (which is true of continuation usage in general)." } ; HELP: bshift diff --git a/extra/s3/s3-docs.factor b/extra/s3/s3-docs.factor index 1ed7a643c9..e2e0be3c97 100644 --- a/extra/s3/s3-docs.factor +++ b/extra/s3/s3-docs.factor @@ -8,7 +8,7 @@ HELP: buckets { "seq" "a sequence of " { $link bucket } " objects" } } { $description - "Returns a list of " { $link bucket } " objects containing data on the buckets available on S3."} + "Returns a list of " { $link bucket } " objects containing data on the buckets available on S3." } { $examples { $unchecked-example "USING: s3 ;" "buckets ." "{ }" } } @@ -41,7 +41,7 @@ HELP: delete-bucket HELP: keys { $values { "bucket" string } - { "seq" "a sequence of " { $link key } " objects"} + { "seq" "a sequence of " { $link key } " objects" } } { $description "Returns a sequence of " { $link key } " objects. Each object in the sequence has information about the keys contained within the bucket." @@ -55,8 +55,8 @@ HELP: get-object { $values { "bucket" string } { "key" string } - { "response" "The HTTP response object"} - { "data" "The data returned from the http request"} + { "response" "The HTTP response object" } + { "data" "The data returned from the http request" } } { $description "Does an HTTP request to retrieve the object in the bucket with the given key." -- 2.34.1