diff --git a/basis/combinators/smart/smart-docs.factor b/basis/combinators/smart/smart-docs.factor index cdd2744888..bc7b88a0fc 100644 --- a/basis/combinators/smart/smart-docs.factor +++ b/basis/combinators/smart/smart-docs.factor @@ -23,7 +23,7 @@ HELP: output>array { "quot" quotation } { "newquot" quotation } } -{ $description "Infers the number or outputs from the quotation and constructs an array from those outputs." } +{ $description "Infers the number of outputs from the quotation and constructs an array from those outputs." } { $examples { $example "USING: combinators combinators.smart math prettyprint ; diff --git a/basis/db/tuples/tuples-docs.factor b/basis/db/tuples/tuples-docs.factor index 36e6b4bf2c..50f60d8adb 100644 --- a/basis/db/tuples/tuples-docs.factor +++ b/basis/db/tuples/tuples-docs.factor @@ -139,7 +139,7 @@ HELP: select-tuples { $values { "query/tuple" tuple } { "tuples" "an array of tuples" } } -{ $description "A SQL query is constructed from the slots of the exemplar tuple that are not " { $link f } ". Returns a multiple tuples from the database that match the query constructed from the exemplar tuple." } ; +{ $description "A SQL query is constructed from the slots of the exemplar tuple that are not " { $link f } ". Returns an array of multiple tuples from the database that match the query constructed from the exemplar tuple." } ; HELP: count-tuples { $values diff --git a/basis/help/apropos/apropos.factor b/basis/help/apropos/apropos.factor index 933761871d..9377f0a656 100644 --- a/basis/help/apropos/apropos.factor +++ b/basis/help/apropos/apropos.factor @@ -3,7 +3,7 @@ USING: accessors arrays assocs fry help.markup help.topics io kernel make math math.parser namespaces sequences sorting summary tools.completion vocabs.hierarchy help.vocabs -vocabs words unicode.case help ; +vocabs words unicode.case help unicode.categories ; IN: help.apropos : $completions ( seq -- ) @@ -71,4 +71,4 @@ M: apropos >link ; INSTANCE: apropos topic : apropos ( str -- ) - print-topic nl ; + [ blank? ] trim print-topic nl ; diff --git a/core/make/make-docs.factor b/core/make/make-docs.factor index 2cbf82ae33..2a74af7049 100644 --- a/core/make/make-docs.factor +++ b/core/make/make-docs.factor @@ -37,7 +37,7 @@ $nl { $code "'[ 2 _ + ]" } ; ARTICLE: "namespaces-make" "Making sequences with variables" -"The " { $vocab-link "make" } " vocabulary implements a facility for constructing sequences by holding an collector sequence in a variable. Storing the collector sequence in a variable rather than the stack may allow code to be written with less stack manipulation." +"The " { $vocab-link "make" } " vocabulary implements a facility for constructing sequences by holding a collector sequence in a variable. Storing the collector sequence in a variable rather than the stack may allow code to be written with less stack manipulation." $nl "Sequence construction is wrapped in a combinator:" { $subsections make } diff --git a/extra/calendar/holidays/holidays.factor b/extra/calendar/holidays/holidays.factor index 0b8a1bb781..7a87a1df45 100644 --- a/extra/calendar/holidays/holidays.factor +++ b/extra/calendar/holidays/holidays.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2009 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors assocs calendar fry kernel parser sequences -shuffle vocabs words memoize ; +USING: accessors assocs calendar fry kernel locals parser +sequences vocabs words memoize ; IN: calendar.holidays SINGLETONS: all world commonwealth-of-nations ; @@ -15,7 +15,8 @@ SYNTAX: HOLIDAY: parse-definition (( timestamp/n -- timestamp )) define-declared ; SYNTAX: HOLIDAY-NAME: - scan-word "holiday" word-prop scan-word scan-object spin set-at ; + [let scan-word "holiday" word-prop :> holidays scan-word :> name scan-object :> value + value name holidays set-at ] ; >> GENERIC: holidays ( n singleton -- seq ) diff --git a/extra/calendar/holidays/us/us.factor b/extra/calendar/holidays/us/us.factor index 538836952f..87c367f941 100644 --- a/extra/calendar/holidays/us/us.factor +++ b/extra/calendar/holidays/us/us.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors assocs calendar calendar.holidays calendar.holidays.private combinators combinators.short-circuit -fry kernel lexer math namespaces parser sequences shuffle +fry kernel lexer math namespaces parser sequences vocabs words ; IN: calendar.holidays.us diff --git a/extra/webapps/imagebin/imagebin.factor b/extra/webapps/imagebin/imagebin.factor index bb8720466c..24cd92ca2a 100644 --- a/extra/webapps/imagebin/imagebin.factor +++ b/extra/webapps/imagebin/imagebin.factor @@ -3,7 +3,8 @@ USING: accessors furnace.actions furnace.redirection html.forms http http.server http.server.dispatchers io.directories io.encodings.utf8 io.files io.pathnames -kernel math.parser multiline namespaces sequences urls ; +kernel math.parser multiline namespaces sequences urls +math ; IN: webapps.imagebin TUPLE: imagebin < dispatcher path n ; @@ -14,13 +15,13 @@ TUPLE: imagebin < dispatcher path n ; : next-image-path ( -- path ) imagebin get - [ path>> ] [ n>> number>string ] bi append-path ; + [ path>> ] [ [ 1 + ] change-n n>> number>string ] bi append-path ; M: imagebin call-responder* [ imagebin set ] [ call-next-method ] bi ; : move-image ( mime-file -- ) - next-image-path + [ next-image-path dup exists? ] [ drop ] while [ [ temporary-path>> ] dip move-file ] [ [ filename>> ] dip ".txt" append utf8 set-file-contents ] 2bi ;