diff --git a/extra/couchdb/couchdb.factor b/extra/couchdb/couchdb.factor index 9e1e49babd..5665246246 100644 --- a/extra/couchdb/couchdb.factor +++ b/extra/couchdb/couchdb.factor @@ -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 : ( host port -- server ) V{ } clone default-uuids-to-cache server boa ;