From c1850f416ac3130d1b948100558cca0c58a8b7c2 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 19 Sep 2012 15:53:37 -0700 Subject: [PATCH] sequences: fix docs to use "dst" as a convention. --- core/io/streams/sequence/sequence.factor | 2 +- core/sequences/sequences-docs.factor | 16 ++++++++-------- core/sequences/sequences.factor | 2 +- 3 files changed, 10 insertions(+), 10 deletions(-) diff --git a/core/io/streams/sequence/sequence.factor b/core/io/streams/sequence/sequence.factor index 2c98ff87f4..8894fdf322 100644 --- a/core/io/streams/sequence/sequence.factor +++ b/core/io/streams/sequence/sequence.factor @@ -17,7 +17,7 @@ SLOT: i : (sequence-read-length) ( n buf stream -- buf count ) [ underlying>> length ] [ i>> ] bi - rot min ; inline -: ( dest n i src -- n copy ) +: ( dst n i src -- n copy ) [ 0 ] 3curry dip ; inline : (sequence-read-unsafe) ( n buf stream -- count ) diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor index 7786426c0e..bf9de6d0ba 100644 --- a/core/sequences/sequences-docs.factor +++ b/core/sequences/sequences-docs.factor @@ -740,16 +740,16 @@ HELP: { $example "USING: prettyprint sequences ;" "10 \"X\" concat ." "\"XXXXXXXXXX\"" } } ; HELP: copy -{ $values { "src" sequence } { "i" "an index in " { $snippet "dest" } } { "dst" "a mutable sequence" } } -{ $description "Copies all elements of " { $snippet "src" } " to " { $snippet "dest" } ", with destination indices starting from " { $snippet "i" } ". Grows " { $snippet "to" } " first if necessary." } -{ $side-effects "dest" } -{ $errors "An error is thrown if " { $snippet "to" } " is not resizable, and not large enough to hold the copied elements." } ; +{ $values { "src" sequence } { "i" "an index in " { $snippet "dst" } } { "dst" "a mutable sequence" } } +{ $description "Copies all elements of " { $snippet "src" } " to " { $snippet "dst" } ", with destination indices starting from " { $snippet "i" } ". Grows " { $snippet "dst" } " first if necessary." } +{ $side-effects "dst" } +{ $errors "An error is thrown if " { $snippet "dst" } " is not resizable, and not large enough to hold the copied elements." } ; HELP: push-all -{ $values { "src" sequence } { "dest" "a resizable mutable sequence" } } -{ $description "Appends " { $snippet "src" } " to the end of " { $snippet "dest" } "." } -{ $side-effects "dest" } -{ $errors "Throws an error if " { $snippet "src" } " contains elements not permitted in " { $snippet "dest" } "." } ; +{ $values { "src" sequence } { "dst" "a resizable mutable sequence" } } +{ $description "Appends " { $snippet "src" } " to the end of " { $snippet "dst" } "." } +{ $side-effects "dst" } +{ $errors "Throws an error if " { $snippet "src" } " contains elements not permitted in " { $snippet "dst" } "." } ; HELP: append { $values { "seq1" sequence } { "seq2" sequence } { "newseq" sequence } } diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index 4203fcb85c..3327bdd701 100644 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -329,7 +329,7 @@ M: sequence clone-like M: immutable-sequence clone-like like ; inline -: push-all ( src dest -- ) [ length ] [ copy ] bi ; inline +: push-all ( src dst -- ) [ length ] [ copy ] bi ; inline