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

Fix bugs

db4
Slava Pestov 2008-03-11 16:03:22 -05:00
parent 2797d1947b
commit 28970d9469
5 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/db/postgresql/ffi/ffi.factor
View File

@ -6,7 +6,7 @@ IN: db.postgresql.ffi
<< "postgresql" {
{ [ win32? ] [ "libpq.dll" ] }
{ [ macosx? ] [ "/opt/local/lib/postgresql81/libpq.dylib" ] }
{ [ macosx? ] [ "/opt/local/lib/postgresql82/libpq.dylib" ] }
{ [ unix? ] [ "libpq.so" ] }
} cond "cdecl" add-library >>

3
extra/http/server/auth/auth.factor
View File

@ -1,6 +1,7 @@
! Copyright (c) 2008 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
USING: http.server.sessions accessors ;
USING: http.server.sessions accessors
http.server.auth.providers ;
IN: http.server.auth
SYMBOL: logged-in-user

2
extra/http/server/auth/providers/providers.factor
View File

@ -17,7 +17,7 @@ GENERIC: new-user ( user provider -- user/f )
: check-login ( password username provider -- user/f )
get-user dup [ [ password>> = ] keep and ] [ 2drop f ] if ;
:: set-password ( password username provider -- )
:: set-password ( password username provider -- ? )
[let | user [ username provider get-user ] |
user [
user

4
extra/http/server/callbacks/callbacks-tests.factor
View File

@ -9,7 +9,7 @@ splitting kernel hashtables continuations ;
[
exit-continuation set
"xxx"
<action> [ [ "hello" print 123 ] show-final ] >>get
<action> [ [ "hello" print 123 ] show-final ] >>display
<callback-responder>
call-responder
] callcc1
@ -24,7 +24,7 @@ splitting kernel hashtables continuations ;
] show-page
"byebye" print
[ 123 ] show-final
] >>get
] >>display
<callback-responder> "r" set
[ 123 ] [

2
extra/xmode/tokens/tokens.factor
View File

@ -3,9 +3,9 @@ compiler.units ;
IN: xmode.tokens
! Based on org.gjt.sp.jedit.syntax.Token
<<
SYMBOL: tokens
<<
{ "COMMENT1" "COMMENT2" "COMMENT3" "COMMENT4" "DIGIT" "FUNCTION" "INVALID" "KEYWORD1" "KEYWORD2" "KEYWORD3" "KEYWORD4" "LABEL" "LITERAL1" "LITERAL2" "LITERAL3" "LITERAL4" "MARKUP" "OPERATOR" "END" "NULL" } [
create-in dup define-symbol
dup word-name swap