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

More float syntax fixes

db4
Slava Pestov 2009-04-14 17:09:16 -05:00
parent 1c68b389cc
commit da38a25963
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/math/analysis/analysis.factor
View File

@ -42,7 +42,7 @@ PRIVATE>
#! gamma(x) = integral 0..inf [ t^(x-1) exp(-t) ] dt #! gamma(x) = integral 0..inf [ t^(x-1) exp(-t) ] dt
#! gamma(n+1) = n! for n > 0 #! gamma(n+1) = n! for n > 0
dup { [ 0.0 <= ] [ 1.0 mod zero? ] } 1&& [ dup { [ 0.0 <= ] [ 1.0 mod zero? ] } 1&& [
drop 1./0. drop 1/0.
] [ ] [
[ abs gamma-lanczos6 ] keep dup 0 > [ drop ] [ gamma-neg ] if [ abs gamma-lanczos6 ] keep dup 0 > [ drop ] [ gamma-neg ] if
] if ; ] if ;
@ -51,7 +51,7 @@ PRIVATE>
#! gammaln(x) is an alternative when gamma(x)'s range #! gammaln(x) is an alternative when gamma(x)'s range
#! varies too widely #! varies too widely
dup 0 < [ dup 0 < [
drop 1./0. drop 1/0.
] [ ] [
[ abs gammaln-lanczos6 ] keep dup 0 > [ drop ] [ gamma-neg ] if [ abs gammaln-lanczos6 ] keep dup 0 > [ drop ] [ gamma-neg ] if
] if ; ] if ;

9
extra/webapps/site-watcher/site-watcher.factor
View File

@ -1,15 +1,16 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs db.sqlite furnace furnace.actions furnace.alloy USING: accessors assocs db.sqlite furnace furnace.actions
furnace.auth furnace.auth.features.deactivate-user furnace.alloy furnace.auth furnace.auth.features.deactivate-user
furnace.auth.features.edit-profile furnace.auth.features.edit-profile
furnace.auth.features.recover-password furnace.auth.features.recover-password
furnace.auth.features.registration furnace.auth.login furnace.auth.features.registration furnace.auth.login
furnace.boilerplate furnace.redirection html.forms http.server furnace.boilerplate furnace.redirection html.forms http.server
http.server.dispatchers kernel namespaces site-watcher site-watcher.db http.server.dispatchers kernel namespaces site-watcher site-watcher.db
site-watcher.private urls validators io.sockets.secure.unix.debug site-watcher.private urls validators io.sockets.secure.unix.debug
io.servers.connection db db.tuples sequences webapps.site-watcher.common io.servers.connection io.files.temp db db.tuples sequences
webapps.site-watcher.watching webapps.site-watcher.spidering ; webapps.site-watcher.common webapps.site-watcher.watching
webapps.site-watcher.spidering ;
QUALIFIED: assocs QUALIFIED: assocs
IN: webapps.site-watcher IN: webapps.site-watcher