extra: Update usages of CONSTRUCTOR: for new parameter.

diff --git a/extra/bson/constants/constants.factor b/extra/bson/constants/constants.factor
index bd930beac168c4ce5a926f0f5e8588e44ed5f782..9684a4d1f8ae42fe2a36d40b1d5470933452618b 100644 (file)
--- a/extra/bson/constants/constants.factor
+++ b/extra/bson/constants/constants.factor
@@ -29,7 +29,7 @@ TUPLE: mongo-scoped-code code object ;
 : <mongo-scoped-code> ( code object -- mongo-scoped-code )
     mongo-scoped-code boa ;
 
-CONSTRUCTOR: dbref ( ref id -- dbref ) ;
+CONSTRUCTOR: <dbref> dbref ( ref id -- dbref ) ;
 
 : dbref>assoc ( dbref -- assoc )
     [ <linked-hash> ] dip over

diff --git a/extra/dns/dns.factor b/extra/dns/dns.factor
index da6395615b813f4f1e53be111cad17bdf20b0a26..b9077237bc72755f6fa354e0345c7708ff5ac491 100644 (file)
--- a/extra/dns/dns.factor
+++ b/extra/dns/dns.factor
@@ -54,7 +54,7 @@ SYMBOL: dns-servers
     "." ?tail drop ;
 
 TUPLE: query name type class ;
-CONSTRUCTOR: query ( name type class -- obj )
+CONSTRUCTOR: <query> query ( name type class -- obj )
     [ >dotted ] change-name ;
 
 TUPLE: rr name type class ttl rdata ;
@@ -66,24 +66,24 @@ TUPLE: mx preference exchange ;
 TUPLE: soa mname rname serial refresh retry expire minimum ;
 
 TUPLE: a name ;
-CONSTRUCTOR: a ( name -- obj ) ;
+CONSTRUCTOR: <a> a ( name -- obj ) ;
 
 TUPLE: aaaa name ;
-CONSTRUCTOR: aaaa ( name -- obj ) ;
+CONSTRUCTOR: <aaaa> aaaa ( name -- obj ) ;
 
 TUPLE: cname name ;
-CONSTRUCTOR: cname ( name -- obj ) ;
+CONSTRUCTOR: <cname> cname ( name -- obj ) ;
 
 TUPLE: ptr name ;
-CONSTRUCTOR: ptr ( name -- obj ) ;
+CONSTRUCTOR: <ptr> ptr ( name -- obj ) ;
 
 TUPLE: ns name ;
-CONSTRUCTOR: ns ( name -- obj ) ;
+CONSTRUCTOR: <ns> ns ( name -- obj ) ;
 
 TUPLE: message id qr opcode aa tc rd ra z rcode
 query answer-section authority-section additional-section ;
 
-CONSTRUCTOR: message ( query -- obj )
+CONSTRUCTOR: <message> message ( query -- obj )
     16 2^ random >>id
     0 >>qr
     QUERY >>opcode

diff --git a/extra/images/gif/gif.factor b/extra/images/gif/gif.factor
index cdfd9d1a5ad90daf6e1992e15e7c5d7af91b7e33..be932cbbd3172e0c22ce1f5d9ca7905ce1458d1c 100644 (file)
--- a/extra/images/gif/gif.factor
+++ b/extra/images/gif/gif.factor
@@ -53,7 +53,7 @@ TUPLE: comment-extension
 introducer label comment-data ;
 
 TUPLE: trailer byte ;
-CONSTRUCTOR: trailer ( byte -- obj ) ;
+CONSTRUCTOR: <trailer> trailer ( byte -- obj ) ;
 
 CONSTANT: IMAGE-DESCRIPTOR 0x2c
 ! Extensions

diff --git a/extra/mongodb/connection/connection.factor b/extra/mongodb/connection/connection.factor
index 4cc72f1e504cc947ff1ab29da3dff9e812cd8155..3df1cd0159c67d30ac9f84ad80e769be51e51a7b 100644 (file)
--- a/extra/mongodb/connection/connection.factor
+++ b/extra/mongodb/connection/connection.factor
@@ -13,7 +13,7 @@ TUPLE: mdb-db name username pwd-digest nodes collections ;
 
 TUPLE: mdb-node master? { address inet } remote ;
 
-CONSTRUCTOR: mdb-node ( address master? -- mdb-node ) ;
+CONSTRUCTOR: <mdb-node> mdb-node ( address master? -- mdb-node ) ;
 
 TUPLE: mdb-connection instance node handle remote local buffer ;
 
@@ -22,7 +22,7 @@ TUPLE: mdb-connection instance node handle remote local buffer ;
 
 USE: mongodb.operations
 
-CONSTRUCTOR: mdb-connection ( instance -- mdb-connection ) ;
+CONSTRUCTOR: <mdb-connection> mdb-connection ( instance -- mdb-connection ) ;
 
 : check-ok ( result -- errmsg ? )
     [ [ "errmsg" ] dip at ] 

diff --git a/extra/mongodb/driver/driver.factor b/extra/mongodb/driver/driver.factor
index e5460760ff2eb7d41eb88a9df6acc33a98d41bf4..043e89752885ea53d5add0c3b7aaebe9728d35a9 100644 (file)
--- a/extra/mongodb/driver/driver.factor
+++ b/extra/mongodb/driver/driver.factor
@@ -18,12 +18,12 @@ TUPLE: mdb-collection
 { size integer }
 { max integer } ;
 
-CONSTRUCTOR: mdb-collection ( name -- collection ) ;
+CONSTRUCTOR: <mdb-collection> mdb-collection ( name -- collection ) ;
 
 TUPLE: index-spec
 { ns string } { name string } { key hashtable } { unique? boolean initial: f } ;
 
-CONSTRUCTOR: index-spec ( ns name key -- index-spec ) ;
+CONSTRUCTOR: <index-spec> index-spec ( ns name key -- index-spec ) ;
 
 M: mdb-pool make-connection
     mdb>> mdb-open ;

diff --git a/extra/mongodb/msg/msg.factor b/extra/mongodb/msg/msg.factor
index 5011e8897cd7936439114f24b8eca077fb2c3dbd..7997161fdda2af267456503a8ec47dd4e35c8958 100644 (file)
--- a/extra/mongodb/msg/msg.factor
+++ b/extra/mongodb/msg/msg.factor
@@ -66,13 +66,13 @@ TUPLE: mdb-reply-msg < mdb-msg
     { objects sequence } ;
 
 
-CONSTRUCTOR: mdb-getmore-msg ( collection return# cursor -- mdb-getmore-msg )
+CONSTRUCTOR: <mdb-getmore-msg> mdb-getmore-msg ( collection return# cursor -- mdb-getmore-msg )
     OP_GetMore >>opcode ; inline
 
-CONSTRUCTOR: mdb-delete-msg ( collection selector -- mdb-delete-msg )
+CONSTRUCTOR: <mdb-delete-msg> mdb-delete-msg ( collection selector -- mdb-delete-msg )
     OP_Delete >>opcode ; inline
 
-CONSTRUCTOR: mdb-query-msg ( collection query -- mdb-query-msg )
+CONSTRUCTOR: <mdb-query-msg> mdb-query-msg ( collection query -- mdb-query-msg )
     OP_Query >>opcode ; inline
 
 GENERIC: <mdb-killcursors-msg> ( object -- mdb-killcursors-msg )
@@ -99,8 +99,8 @@ M: assoc <mdb-insert-msg> ( collection assoc -- mdb-insert-msg )
     >>objects OP_Insert >>opcode ;
 
 
-CONSTRUCTOR: mdb-update-msg ( collection selector object -- mdb-update-msg )
+CONSTRUCTOR: <mdb-update-msg> mdb-update-msg ( collection selector object -- mdb-update-msg )
     OP_Update >>opcode ; inline
     
-CONSTRUCTOR: mdb-reply-msg ( -- mdb-reply-msg ) ; inline
+CONSTRUCTOR: <mdb-reply-msg> mdb-reply-msg ( -- mdb-reply-msg ) ; inline
 

diff --git a/extra/mongodb/tuple/collection/collection.factor b/extra/mongodb/tuple/collection/collection.factor
index c3a8ef7681c957c72eb58c7e9d32e028f98d00a1..0e217be33c3ca56f94412d0a7a7ef39555805dcb 100644 (file)
--- a/extra/mongodb/tuple/collection/collection.factor
+++ b/extra/mongodb/tuple/collection/collection.factor
@@ -14,7 +14,7 @@ IN: mongodb.tuple.collection
 
 TUPLE: toid key value ;
 
-CONSTRUCTOR: toid ( value key -- toid ) ;
+CONSTRUCTOR: <toid> toid ( value key -- toid ) ;
 
 FROM: mongodb.tuple => +transient+ +load+ <tuple-index> ;
 

diff --git a/extra/mongodb/tuple/persistent/persistent.factor b/extra/mongodb/tuple/persistent/persistent.factor
index 352c28599e8393563d7620d5367e36515b2e2970..f5aa1c95caa43395ac73c3e7154ae69351553b9f 100644 (file)
--- a/extra/mongodb/tuple/persistent/persistent.factor
+++ b/extra/mongodb/tuple/persistent/persistent.factor
@@ -48,7 +48,7 @@ DEFER: assoc>tuple
 
 TUPLE: cond-value value quot ;
 
-CONSTRUCTOR: cond-value ( value quot -- cond-value ) ;
+CONSTRUCTOR: <cond-value> cond-value ( value quot -- cond-value ) ;
 
 : write-mdb-persistent ( value quot -- value' )
    over [ call( tuple -- assoc ) ] dip 

diff --git a/extra/resolv-conf/resolv-conf.factor b/extra/resolv-conf/resolv-conf.factor
index d8d370a02b635d6d1dfd2a8ad814e0dad0941f4f..2859139e0bdca7c5213ac5c98c548efc7bc3f33e 100644 (file)
--- a/extra/resolv-conf/resolv-conf.factor
+++ b/extra/resolv-conf/resolv-conf.factor
@@ -6,7 +6,7 @@ unicode.categories ;
 IN: resolv-conf
 
 TUPLE: network ip netmask ;
-CONSTRUCTOR: network ( ip netmask -- network ) ;
+CONSTRUCTOR: <network> network ( ip netmask -- network ) ;
 
 TUPLE: options
 debug?
@@ -18,11 +18,11 @@ insecure2?
 { attempts integer initial: 2 }
 rotate? no-check-names? inet6? tcp? ;
 
-CONSTRUCTOR: options ( -- options ) ;
+CONSTRUCTOR: <options> options ( -- options ) ;
 
 TUPLE: resolv.conf nameserver domain lookup search sortlist options ;
 
-CONSTRUCTOR: resolv.conf ( -- resolv.conf )
+CONSTRUCTOR: <resolv.conf> resolv.conf ( -- resolv.conf )
     V{ } clone >>nameserver
     V{ } clone >>domain
     V{ } clone >>search

diff --git a/extra/tc-lisp-talk/tc-lisp-talk.factor b/extra/tc-lisp-talk/tc-lisp-talk.factor
index abad987fb8cd2d08aadb70ee6839674f9ad592f4..ac9e46f817af113c4b1dab221da5a8b13fb6c365 100644 (file)
--- a/extra/tc-lisp-talk/tc-lisp-talk.factor
+++ b/extra/tc-lisp-talk/tc-lisp-talk.factor
@@ -95,7 +95,7 @@ math.constants ;
 IN: shapes.circle
 
 TUPLE: circle radius ;
-CONSTRUCTOR: circle ( radius -- obj ) ;
+CONSTRUCTOR: <circle> circle ( radius -- obj ) ;
 M: circle area radius>> sq pi * ;
 M: circle perimeter radius>> pi * 2 * ;"""
         }