inference workaround

diff --git a/factor/jedit/FactorPlugin.java b/factor/jedit/FactorPlugin.java
index f3c4d693ac33e7312e338b305316a98e6899385d..4ad20a438c244c41f55c3ef1cc6c713479aeee3e 100644 (file)
--- a/factor/jedit/FactorPlugin.java
+++ b/factor/jedit/FactorPlugin.java
@@ -99,10 +99,11 @@ public class FactorPlugin extends EditPlugin
                        {
                                String[] args = jEdit.getProperty("factor.external.args","-jedit")
                                        .split(" ");
-                               String[] nargs = new String[args.length + 3];
+                               String[] nargs = new String[args.length + 4];
                                nargs[0] = jEdit.getProperty("factor.external.program");
                                nargs[1] = jEdit.getProperty("factor.external.image");
                                nargs[2] = "-no-ansi";
+                               nargs[3] = "-no-smart-terminal";
                                System.arraycopy(args,0,nargs,3,args.length);
                                p = Runtime.getRuntime().exec(nargs);
                                p.getErrorStream().close();

diff --git a/library/bootstrap/init-stage2.factor b/library/bootstrap/init-stage2.factor
index 5e77df53fbb1967574233e2610cca47021d1e3fb..7a9cf4b3c1ee3ca0c96209918bd0fc8952f93267 100644 (file)
--- a/library/bootstrap/init-stage2.factor
+++ b/library/bootstrap/init-stage2.factor
@@ -26,7 +26,6 @@
 ! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 IN: kernel
-USE: ansi
 USE: alien
 USE: compiler
 USE: errors
@@ -92,8 +91,8 @@ init-error-handler
 
 0 [ drop succ ] each-word unparse write " words" print 
 
-! "Counting word usages..." print
-! tally-usages
+"Counting word usages..." print
+tally-usages
 ! 
 ! "Automatically inlining words called " write
 ! auto-inline-count unparse write

diff --git a/library/inference/branches.factor b/library/inference/branches.factor
index 98dde2453de22df172acdb7d11dd3945d71758ed..3fa127a4dab82a0d3b45506644e11eb279bc1cc6 100644 (file)
--- a/library/inference/branches.factor
+++ b/library/inference/branches.factor
@@ -108,7 +108,7 @@ USE: hashtables
         save-effect set
         dup value-recursion recursive-state set
         copy-interpreter
-        d-in [ vector-clone ] change
+        d-in [ [ vector-clone ] vector-map ] change
         dataflow-graph off
         literal-value infer-quot
         #values values-node

diff --git a/library/inference/words.factor b/library/inference/words.factor
index f5970a0c6c566d66f77ad9bb7f1d5a5c64eeb4e8..3764539ec1137162ac08b4731192bd6997313153 100644 (file)
--- a/library/inference/words.factor
+++ b/library/inference/words.factor
@@ -184,7 +184,7 @@ USE: prettyprint
         check-recursion recursive-word
     ] [
         drop dup "infer-effect" word-property dup [
-            apply-effect
+            dup cdr cons? [ old-effect ] when apply-effect
         ] [
             drop
             [

diff --git a/library/test/inspector.factor b/library/test/inspector.factor
deleted file mode 100644 (file)
index 256538b..0000000
--- a/library/test/inspector.factor
+++ /dev/null
@@ -1,9 +0,0 @@
-IN: scratchpad
-USE: inspector
-USE: namespaces
-USE: words
-
-"httpd" apropos.
-"car" usages.
-global describe
-vocabularies get describe

diff --git a/library/test/test.factor b/library/test/test.factor
index 89e4817eaaecac81c179cb6b15cc7a97d0657167..e04efbbffff4ba1854d6a4d57c05fb91e5a4a925 100644 (file)
--- a/library/test/test.factor
+++ b/library/test/test.factor
@@ -83,7 +83,6 @@ USE: unparser
         "prettyprint"
         "image"
         "init"
-        "inspector"
         "io/io"
         "listener"
         "vectors"