From 6b8b2dff0107abdcf1d6dad2c985de05911650f0 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Thu, 17 Jan 2008 23:51:03 -0600 Subject: [PATCH 1/5] assocs.lib renaming and typo fix --- extra/assocs/lib/lib.factor | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/extra/assocs/lib/lib.factor b/extra/assocs/lib/lib.factor index 0181514ab4..5a277e2d8d 100644 --- a/extra/assocs/lib/lib.factor +++ b/extra/assocs/lib/lib.factor @@ -7,18 +7,18 @@ IN: assocs.lib : >set ( seq -- hash ) [ dup ] H{ } map>assoc ; -: ref-hash ( table key -- value ) swap at ; +: ref-at ( table key -- value ) swap at ; ! set-hash with alternative stack effects -: put-hash* ( table key value -- ) swap rot set-at ; +: put-at* ( table key value -- ) swap rot set-at ; -: put-hash ( table key value -- table ) swap pick set-at ; +: put-at ( table key value -- table ) swap pick set-at ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -: set-hash-stack ( value key seq -- ) - dupd [ key? ] when find-last nip set-at ; +: set-assoc-stack ( value key seq -- ) + dupd [ key? ] with find-last nip set-at ; : at-default ( key assoc -- value/key ) dupd at [ nip ] when* ; From ea85f19dee6edf442b6cf6eed67c14e4596f5569 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Thu, 17 Jan 2008 23:51:35 -0600 Subject: [PATCH 2/5] Fixing missing IN in alien.syntax's docs --- core/alien/syntax/syntax-docs.factor | 1 + 1 file changed, 1 insertion(+) diff --git a/core/alien/syntax/syntax-docs.factor b/core/alien/syntax/syntax-docs.factor index 858c3f145e..ca9ecdf59b 100755 --- a/core/alien/syntax/syntax-docs.factor +++ b/core/alien/syntax/syntax-docs.factor @@ -1,5 +1,6 @@ USING: alien alien.c-types alien.structs alien.syntax alien.syntax.private help.markup help.syntax ; +IN: alien.syntax HELP: DLL" { $syntax "DLL\" path\"" } From dfef1bd7eaae930b8b6dedaa0f63af853ea9f1d9 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Thu, 17 Jan 2008 23:52:56 -0600 Subject: [PATCH 3/5] Really fxing alien.syntax's docs --- core/alien/syntax/syntax-docs.factor | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/core/alien/syntax/syntax-docs.factor b/core/alien/syntax/syntax-docs.factor index ca9ecdf59b..1bad5acb91 100755 --- a/core/alien/syntax/syntax-docs.factor +++ b/core/alien/syntax/syntax-docs.factor @@ -1,5 +1,4 @@ -USING: alien alien.c-types alien.structs alien.syntax -alien.syntax.private help.markup help.syntax ; +USING: alien alien.c-types alien.structs alien.syntax help.markup help.syntax ; IN: alien.syntax HELP: DLL" From a1ad8b93ea26b12635a53e801939ec366ca630ae Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Thu, 17 Jan 2008 23:55:20 -0600 Subject: [PATCH 4/5] Really really fixing alien.syntax's docs! --- core/alien/syntax/syntax-docs.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/core/alien/syntax/syntax-docs.factor b/core/alien/syntax/syntax-docs.factor index 1bad5acb91..75255d905d 100755 --- a/core/alien/syntax/syntax-docs.factor +++ b/core/alien/syntax/syntax-docs.factor @@ -1,5 +1,6 @@ -USING: alien alien.c-types alien.structs alien.syntax help.markup help.syntax ; +USING: alien alien.c-types alien.structs help.markup help.syntax ; IN: alien.syntax +USE: alien.syntax.private HELP: DLL" { $syntax "DLL\" path\"" } From 33193a92f88a90eea65b6c50fc39b1f679724832 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Sun, 27 Jan 2008 18:44:26 -0600 Subject: [PATCH 5/5] Fixing Unicode.breaks for the new compilation units --- extra/unicode/breaks/breaks.factor | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/extra/unicode/breaks/breaks.factor b/extra/unicode/breaks/breaks.factor index fc1e3071e7..fb893ed51b 100644 --- a/extra/unicode/breaks/breaks.factor +++ b/extra/unicode/breaks/breaks.factor @@ -1,10 +1,10 @@ -USING: unicode.categories kernel math const combinators splitting +USING: unicode.categories kernel math combinators splitting sequences math.parser io.files io assocs arrays namespaces combinators.lib assocs.lib math.ranges unicode.normalize -unicode.syntax unicode.data ; +unicode.syntax unicode.data compiler.units alien.syntax ; IN: unicode.breaks -ENUM: Any L V T Extend Control CR LF graphemes ; +C-ENUM: Any L V T Extend Control CR LF graphemes ; : jamo-class ( ch -- class ) dup initial? [ drop L ] @@ -71,9 +71,9 @@ SYMBOL: table : make-grapheme-table ( -- ) CR LF connect - { Control CR LF } graphemes break-around - L { L V } connect-before - V { V T } connect-before + Control CR LF 3array graphemes break-around + L L V 2array connect-before + V V T 2array connect-before T T connect graphemes Extend connect-after ;