replaced redundancies

diff --git a/extra/classes/algebraic/algebraic-docs.factor b/extra/classes/algebraic/algebraic-docs.factor
deleted file mode 100644 (file)
index 4d641a8..0000000
--- a/extra/classes/algebraic/algebraic-docs.factor
+++ /dev/null
@@ -1,5 +0,0 @@
-USING: help.markup help.syntax ;
-IN: classes.algebraic
-HELP: DATA:
-{ $syntax "DATA: class constructor | constructor arg ... | ... ;" }
-{ $description "Creates a haskell style algebraic data type.  For each constructor, a seperate tuple is created, and the resulting tuples are added to a union class." } ;
\ No newline at end of file

diff --git a/extra/classes/algebraic/algebraic.factor b/extra/classes/algebraic/algebraic.factor
deleted file mode 100644 (file)
index 09ff137..0000000
--- a/extra/classes/algebraic/algebraic.factor
+++ /dev/null
@@ -1,10 +0,0 @@
-USING: classes.parser classes.tuple classes.union kernel peg
-peg-lexer sequences ;
-IN: classes.algebraic
-
-ON-BNF: DATA:
-tokenizer = <foreign factor>
-delimit = "|" => [[ drop ignore ]]
-tuple = (!("|"|";").)+ => [[ unclip create-class-in [ tuple rot define-tuple-class ] keep ]]
-expr = . tuple (delimit tuple)* ";" => [[ first3 swap prefix [ create-class-in ] dip define-union-class ignore ]]
-;ON-BNF
\ No newline at end of file

diff --git a/extra/classes/algebraic/authors.txt b/extra/classes/algebraic/authors.txt
deleted file mode 100644 (file)
index ce0899f..0000000
--- a/extra/classes/algebraic/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Sam Anklesaria
\ No newline at end of file

diff --git a/extra/classes/algebraic/summary.txt b/extra/classes/algebraic/summary.txt
deleted file mode 100644 (file)
index 082638e..0000000
--- a/extra/classes/algebraic/summary.txt
+++ /dev/null
@@ -1 +0,0 @@
-Haskell-like algebraic data types
\ No newline at end of file

diff --git a/extra/fonts/syntax/syntax.factor b/extra/fonts/syntax/syntax.factor
index 1cda01da4d7c028d4b5b7f92d6157c9993726d66..c296dfb3df42c952b1b70152c6eddff28d59510b 100644 (file)
--- a/extra/fonts/syntax/syntax.factor
+++ b/extra/fonts/syntax/syntax.factor
@@ -1,8 +1,8 @@
-USING: accessors arrays classes.algebraic combinators io.styles
+USING: accessors arrays variants combinators io.styles
 kernel math parser sequences fry ;
 IN: fonts.syntax
 
-DATA: fontname serif | monospace ;
+VARIANT: fontname serif monospace ;
 
 : install ( object quot -- quot/? ) over [ curry ] [ 2drop [ ] ] if ;
 

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 37d1d9487a02cba807fee2746e6daba50e7a2649..d8e5e45d3b41733c1059e878eb58d7eca0422028 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -15,8 +15,5 @@ IN: sequences.extras
     [ unclip id swap quot call( prev elt -- next ) quot reduce* ] if-empty ; inline recursive
 
 :: combos ( list1 list2 -- result ) list2 [ [ 2array ] curry list1 swap map ] map concat ;
-: (head-slice) ( seq n -- seq' ) over length over < [ drop ] [ head-slice ] if ;
 : find-all ( seq quot -- elts ) [ [ length iota ] keep ] dip
-    [ dupd call( a -- ? ) [ 2array ] [ 2drop f ] if ] curry 2map [ ] filter ; inline
-
-: empty ( seq -- ) 0 swap shorten ;
\ No newline at end of file
+    [ dupd call( a -- ? ) [ 2array ] [ 2drop f ] if ] curry 2map [ ] filter ; inline
\ No newline at end of file

diff --git a/extra/ui/gadgets/layout/layout.factor b/extra/ui/gadgets/layout/layout.factor
index f155b292e1ae27dc7f4e1d9d22c5381c7ec74dde..309c86c5f664633a99f85fed82dad970726eaaca 100644 (file)
--- a/extra/ui/gadgets/layout/layout.factor
+++ b/extra/ui/gadgets/layout/layout.factor
@@ -14,7 +14,7 @@ TUPLE: placeholder < gadget members ;
 : (remove-members) ( placeholder members -- ) [ [ model? ] filter swap parent>> model>> [ remove-connection ] curry each ]
     [ nip [ gadget? ] filter [ unparent ] each ] 2bi ;
 
-: remove-members ( placeholder -- ) dup members>> [ drop ] [ [ (remove-members) ] keep empty ] if-empty ;
+: remove-members ( placeholder -- ) dup members>> [ drop ] [ [ (remove-members) ] keep delete-all ] if-empty ;
 : add-member ( obj placeholder -- ) over layout? [ [ gadget>> ] dip ] when members>> push ;
 
 : , ( item -- ) make:, ;