Merge branch 'master' of git://factorcode.org/git/factor into row-polymorphism

basis/furnace/recaptcha/recaptcha-docs.factor

@@ -14,9 +14,6 @@ HELP: <recaptcha>
 HELP: recaptcha-error
 { $var-description "Set to the error string returned by the recaptcha server." } ;
 
-HELP: recaptcha-valid?
-{ $var-description "Set to " { $link t } " if the user solved the last recaptcha correctly." } ;
-
 HELP: validate-recaptcha
 { $description "Validates a recaptcha using the recaptcha web service API." } ;
 
@@ -45,14 +42,9 @@ ARTICLE: "furnace.recaptcha" "Recaptcha support for Furnace"
 { $subsections <recaptcha> }
 "Validating recaptcha:"
 { $subsections validate-recaptcha }
-"Symbols set after validation:"
-{ $subsections
-    recaptcha-valid?
-    recaptcha-error
-}
+"Symbol set after validation:"
+{ $subsections recaptcha-error }
 "An example:"
-{ $subsections
-    "recaptcha-example"
-} ;
+{ $subsections "recaptcha-example" } ;
 
 ABOUT: "furnace.recaptcha"

basis/sequences/cords/cords.factor

@@ -108,5 +108,3 @@ M: cord v/n '[ _ v/n ] cord-map ; inline
 
 M: cord norm-sq [ norm-sq ] cord-both + ; inline
 M: cord distance v- norm ; inline
-
-

basis/stack-checker/dependencies/dependencies.factor

@@ -141,7 +141,7 @@ TUPLE: depends-on-final class ;
     [ \ depends-on-final add-conditional-dependency ] bi ;
 
 M: depends-on-final satisfied?
-    class>> final-class? ;
+    class>> { [ class? ] [ final-class? ] } 1&& ;
 
 : init-dependencies ( -- )
     H{ } clone dependencies set

basis/typed/typed-tests.factor

@@ -1,6 +1,6 @@
 USING: accessors effects eval kernel layouts math namespaces
 quotations tools.test typed words words.symbol
-compiler.tree.debugger prettyprint ;
+compiler.tree.debugger prettyprint definitions compiler.units ;
 IN: typed.tests
 
 TYPED: f+ ( a: float b: float -- c: float )
@@ -149,3 +149,12 @@ SYMBOL: a-symbol
         a-symbol get
     ] with-variable
 ] unit-test
+
+! Forgetting an unboxed final class should work
+TUPLE: forget-class { x read-only } ; final
+
+TYPED: forget-fail ( a: forget-class -- ) drop ;
+
+[ ] [ [ \ forget-class forget ] with-compilation-unit ] unit-test
+
+[ ] [ [ \ forget-fail forget ] with-compilation-unit ] unit-test

extra/astar/astar-docs.factor

@@ -74,3 +74,12 @@ HELP: considered
 { $description "When called after a call to " { $link find-path } ", return a list of nodes "
   "which have been examined during the A* exploration."
 } ;
+
+ARTICLE: "astar" "A* algorithm"
+"The " { $vocab-link "astar" } " vocabulary implements a graph search algorithm for finding the least-cost path from one node to another." $nl
+"Make an A* object:"
+{ $subsections <astar> }
+"Find a path between nodes:"
+{ $subsections find-path } ;
+
+ABOUT: "astar"

extra/mason/test/test.factor

@@ -1,11 +1,12 @@
-! Copyright (C) 2008, 2009 Eduardo Cavazos, Slava Pestov.
+! Copyright (C) 2008, 2010 Eduardo Cavazos, Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs benchmark bootstrap.stage2 compiler.errors
-source-files.errors generic help.html help.lint io.directories
-io.encodings.utf8 io.files kernel mason.common math namespaces
-prettyprint sequences sets sorting tools.test tools.time
-words system io tools.errors vocabs.hierarchy vocabs.errors
-vocabs.refresh locals ;
+USING: accessors assocs benchmark bootstrap.stage2
+compiler.errors source-files.errors generic help.html help.lint
+io.directories io.encodings.utf8 io.files kernel mason.common
+math namespaces prettyprint sequences sets sorting tools.test
+tools.time words system io tools.errors vocabs vocabs.files
+vocabs.hierarchy vocabs.errors vocabs.refresh locals
+source-files compiler.units ;
 IN: mason.test
 
 : do-load ( -- )
@@ -32,6 +33,12 @@ M: method word-vocabulary "method-generic" word-prop word-vocabulary ;
     test-all-errors-file
     do-step ;
 
+: cleanup-tests ( -- )
+    ! Free up some code heap space
+    [
+        vocabs [ vocab-tests [ forget-source ] each ] each
+    ] with-compilation-unit ;
+
 : do-help-lint ( -- )
     help-lint-all lint-failures get values
     help-lint-vocabs-file
@@ -67,6 +74,7 @@ M: method word-vocabulary "method-generic" word-prop word-vocabulary ;
         [ do-load ] benchmark load-time-file to-file
         [ generate-help ] benchmark html-help-time-file to-file
         [ do-tests ] benchmark test-time-file to-file
+        cleanup-tests
         [ do-help-lint ] benchmark help-lint-time-file to-file
         [ do-benchmarks ] benchmark benchmark-time-file to-file
         do-compile-errors

extra/project-euler/206/206.factor

@@ -1,7 +1,8 @@
 ! Copyright (c) 2010 Aaron Schaefer. All rights reserved.
 ! The contents of this file are licensed under the Simplified BSD License
 ! A copy of the license is available at http://factorcode.org/license.txt
-USING: grouping kernel math math.ranges project-euler.common sequences ;
+USING: grouping kernel math math.ranges project-euler.common
+sequences sequences.cords ;
 IN: project-euler.206
 
 ! http://projecteuler.net/index.php?section=problems&id=206
@@ -33,7 +34,7 @@ CONSTANT: hi 1389026570
     { 1 2 3 4 5 6 7 8 9 0 } = ;
 
 : candidates ( -- seq )
-    lo lo 40 + [ hi 100 <range> ] bi@ append ;
+    lo lo 40 + [ hi 100 <range> ] bi@ cord-append ;
 
 PRIVATE>