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

Fix contrib/math/

slava 2006-08-18 04:54:39 +00:00
parent e9e00211be
commit 77d9ef20a3
2 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
TODO.FACTOR.txt
View File

@ -1,26 +1,23 @@
+ 0.84: + 0.84:
- doc mashup: - document: parse-hook no-parse-hook
- document: parse-hook no-parse-hook - document inference errors
- document inference errors - update docs for declared effects
- update docs for declared effects - better doc for accumulate, link from tree
- better doc for accumulate, link from tree
- bootstrap speedup with compiling recursives - bootstrap speedup with compiling recursives
- RT_WORD should refer to XTs not word objects. - RT_WORD should refer to XTs not word objects.
- fix contribs: boids, automata - better listener multi-line expression handling
- sometimes darcs get fails with the httpd - history doesn't work in a good way if you ^K the input
- gdb triggers 'mutliple i/o ops on port' error
- factorcode httpd crashed: bad file descriptor
- editor:
- better listener multi-line expression handling
- history doesn't work in a good way if you ^K the input
- services do not launch if factor not running - services do not launch if factor not running
- roundoff is still not quite right with tracks - roundoff is still not quite right with tracks
- fix top level window positioning - fix top level window positioning
- fix contribs: boids, automata
- [ [ dup call ] dup call ] infer hangs - [ [ dup call ] dup call ] infer hangs
- graphical module manager tool - graphical module manager tool
- see if alien calls can be made faster - see if alien calls can be made faster
- sometimes darcs get fails with the httpd
- gdb triggers 'mutliple i/o ops on port' error
- factorcode httpd crashed: bad file descriptor
+ 0.85: + 0.85:
@ -105,6 +102,7 @@
- test what is done in the case of an invalid declaration on an inline - test what is done in the case of an invalid declaration on an inline
recursive recursive
- ppc64 backend - ppc64 backend
- arm backend
- we need to optimize [ dup array? [ array? ] [ array? ] if ] - we need to optimize [ dup array? [ array? ] [ array? ] if ]
- mac intel: struct returns from objc methods - mac intel: struct returns from objc methods
- fix compiled gc check - fix compiled gc check

6
contrib/math/utils.factor
View File

@ -13,7 +13,7 @@ USING: errors kernel sequences math sequences-internals namespaces arrays ;
gcd 1 = [ "Non-trivial divisor found" throw ] unless ; gcd 1 = [ "Non-trivial divisor found" throw ] unless ;
foldable foldable
: each-bit ( n quot -- | quot: 0/1 -- ) : each-bit ( n quot -- )
over zero? pick -1 number= or [ over zero? pick -1 number= or [
2drop 2drop
] [ ] [
@ -91,8 +91,8 @@ M: frange length ( frange -- n )
: frange-range ( frange -- range ) : frange-range ( frange -- range )
[ frange-step ] keep frange-length 1- * ; [ frange-step ] keep frange-length 1- * ;
M: frange nth ( n frange -- obj ) [ frange-step * ] keep frange-from + ; M: frange nth ( n frange -- obj )
M: frange nth-unsafe ( n frange -- obj ) nth ; [ frange-step * ] keep frange-from + ;
: nseq-swap ( a b seq -- seq ) : nseq-swap ( a b seq -- seq )
#! swap indices a,b in seq #! swap indices a,b in seq