From e7bb0d21d15a73738fedef394d34d389717590e0 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Mon, 2 Feb 2009 13:53:08 -0600 Subject: [PATCH] Fixing interval maps docs typo; Minor change to io.encodings.japanese --- basis/interval-maps/interval-maps-docs.factor | 2 +- basis/io/encodings/japanese/japanese.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/interval-maps/interval-maps-docs.factor b/basis/interval-maps/interval-maps-docs.factor index de18458546..4909fc2f82 100644 --- a/basis/interval-maps/interval-maps-docs.factor +++ b/basis/interval-maps/interval-maps-docs.factor @@ -15,7 +15,7 @@ HELP: interval-key? HELP: { $values { "specification" "an assoc" } { "map" "an interval map" } } -{ $description "From a specification, produce an interval tree. The specification is an assoc where the keys are intervals, or pairs of numbers to represent intervals, or individual numbers to represent singleton intervals. The values are the values int he interval map. Construction time is O(n log n)." } ; +{ $description "From a specification, produce an interval tree. The specification is an assoc where the keys are intervals, or pairs of numbers to represent intervals, or individual numbers to represent singleton intervals. The values are the values in the interval map. Construction time is O(n log n)." } ; ARTICLE: "interval-maps" "Interval maps" "The " { $vocab-link "interval-maps" } " vocabulary implements a data structure, similar to assocs, where a set of closed intervals of keys are associated with values. As such, interval maps do not conform to the assoc protocol, because intervals of floats, for example, can be used, and it is impossible to get a list of keys in between." diff --git a/basis/io/encodings/japanese/japanese.factor b/basis/io/encodings/japanese/japanese.factor index d9c6627854..3a66181db1 100644 --- a/basis/io/encodings/japanese/japanese.factor +++ b/basis/io/encodings/japanese/japanese.factor @@ -15,7 +15,7 @@ VALUE: windows-31j TUPLE: jis assoc ; : ( assoc -- jis ) - [ nip ] assoc-filter H{ } assoc-like + [ nip ] assoc-filter >biassoc jis boa ; : ch>jis ( ch tuple -- jis ) assoc>> value-at [ encode-error ] unless* ;