steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

inference workaround

cvs
Slava Pestov 2004-12-23 21:58:33 +00:00
parent 72c9f9a328
commit 94506de202
6 changed files with 6 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
factor/jedit/FactorPlugin.java
View File

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

5
library/bootstrap/init-stage2.factor
View File

@ -26,7 +26,6 @@
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
IN: kernel IN: kernel
USE: ansi
USE: alien USE: alien
USE: compiler USE: compiler
USE: errors USE: errors
@ -92,8 +91,8 @@ init-error-handler
0 [ drop succ ] each-word unparse write " words" print 0 [ drop succ ] each-word unparse write " words" print
! "Counting word usages..." print "Counting word usages..." print
! tally-usages tally-usages
! !
! "Automatically inlining words called " write ! "Automatically inlining words called " write
! auto-inline-count unparse write ! auto-inline-count unparse write

2
library/inference/branches.factor
View File

@ -108,7 +108,7 @@ USE: hashtables
save-effect set save-effect set
dup value-recursion recursive-state set dup value-recursion recursive-state set
copy-interpreter copy-interpreter
d-in [ vector-clone ] change d-in [ [ vector-clone ] vector-map ] change
dataflow-graph off dataflow-graph off
literal-value infer-quot literal-value infer-quot
#values values-node #values values-node

2
library/inference/words.factor
View File

@ -184,7 +184,7 @@ USE: prettyprint
check-recursion recursive-word check-recursion recursive-word
] [ ] [
drop dup "infer-effect" word-property dup [ drop dup "infer-effect" word-property dup [
apply-effect dup cdr cons? [ old-effect ] when apply-effect
] [ ] [
drop drop
[ [

9
library/test/inspector.factor
View File

@ -1,9 +0,0 @@
IN: scratchpad
USE: inspector
USE: namespaces
USE: words
"httpd" apropos.
"car" usages.
global describe
vocabularies get describe

1
library/test/test.factor
View File

@ -83,7 +83,6 @@ USE: unparser
"prettyprint" "prettyprint"
"image" "image"
"init" "init"
"inspector"
"io/io" "io/io"
"listener" "listener"
"vectors" "vectors"