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

couchdb: use CONSTANT:.

John Benediktsson 2012-07-24 15:04:08 -07:00
parent 41d4de60d7
commit a801e7e1a1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/couchdb/couchdb.factor
View File

@ -60,9 +60,9 @@ PREDICATE: file-exists-error < couchdb-error
! server
TUPLE: server { host string } { port integer } { uuids vector } { uuids-to-cache integer } ;
: default-couch-host ( -- host ) "localhost" ; inline
: default-couch-port ( -- port ) 5984 ; inline
: default-uuids-to-cache ( -- n ) 100 ; inline
CONSTANT: default-couch-host "localhost"
CONSTANT: default-couch-port 5984
CONSTANT: default-uuids-to-cache 100
: <server> ( host port -- server )
V{ } clone default-uuids-to-cache server boa ;