core: Rename create to create-word, create-in to create-word-in.

diff --git a/basis/alien/enums/enums.factor b/basis/alien/enums/enums.factor
index 2056a5ad52c1730121e804be2030ecc1ff3e8f08..d833e96e4d85ee11cae8718a05792a99a33f4cfb 100644 (file)
--- a/basis/alien/enums/enums.factor
+++ b/basis/alien/enums/enums.factor
@@ -39,7 +39,7 @@ M: enum-c-type c-type-setter
     [ first define-singleton-class ] each ;
 
 : define-enum-constructor ( word -- )
-    [ name>> "<" ">" surround create-in ] keep
+    [ name>> "<" ">" surround create-word-in ] keep
     [ number>enum ] curry ( number -- enum ) define-inline ;
 
 PRIVATE>

diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor
index 8cc573f2c271de26a287f10ebe71d35f51f53fcb..cd929dc70428ab628ad739610aaadcc4b87a1815 100755 (executable)
--- a/basis/alien/parser/parser.factor
+++ b/basis/alien/parser/parser.factor
@@ -41,7 +41,7 @@ ERROR: bad-array-type ;
         { [ dup "{" = ] [ drop \ } parse-until >array ] }
         { [ dup "pointer:" = ] [ drop scan-c-type <pointer> ] }
         [ parse-c-type ]
-    } cond ; 
+    } cond ;
 
 : reset-c-type ( word -- )
     dup "struct-size" word-prop
@@ -59,7 +59,7 @@ ERROR: *-in-c-type-name name ;
     [ *-in-c-type-name ] when ;
 
 : (CREATE-C-TYPE) ( word -- word )
-    validate-c-type-name current-vocab create {
+    validate-c-type-name current-vocab create-word {
         [ fake-definition ]
         [ set-last-word ]
         [ reset-c-type ]
@@ -133,7 +133,7 @@ PRIVATE>
     [ { } ] [ return-type-name 1array ] if-void <effect> ;
 
 : create-function ( name -- word )
-    create-in dup reset-generic ;
+    create-word-in dup reset-generic ;
 
 :: (make-function) ( return function library types names -- quot effect )
     return library function types function-quot
@@ -150,7 +150,7 @@ PRIVATE>
     '[ [ _ _ _ ] dip alien-callback ] ;
 
 :: make-callback-type ( lib return type-name types names -- word quot effect )
-    type-name current-vocab create :> type-word 
+    type-name current-vocab create-word :> type-word
     type-word [ reset-generic ] [ reset-c-type ] bi
     void* type-word typedef
     type-word names return function-effect "callback-effect" set-word-prop
@@ -185,7 +185,7 @@ PREDICATE: alien-callback-type-word < typedef-word
     [ nip ] [ global-quot ] 2bi ( -- value ) define-declared ;
 
 : define-global-setter ( type word -- )
-    [ nip name>> "set-" prepend create-in ]
+    [ nip name>> "set-" prepend create-word-in ]
     [ set-global-quot ] 2bi ( obj -- ) define-declared ;
 
 : define-global ( type word -- )

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 262939d711dc3e00a8a08cd4974fe8fd2e404c19..0b641b5c015a2e8344748ffedba8c85543cce18a 100644 (file)
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -246,7 +246,7 @@ ERROR: no-objc-type name ;
 : define-objc-class-word ( quot name -- )
     [ class-init-hooks get set-at ]
     [
-        [ "cocoa.classes" create ] [ '[ _ objc-class ] ] bi
+        [ "cocoa.classes" create-word ] [ '[ _ objc-class ] ] bi
         ( -- class ) define-declared
     ] bi ;
 

diff --git a/basis/cocoa/subclassing/subclassing.factor b/basis/cocoa/subclassing/subclassing.factor
index 47f38a5442bc88ed4aef3990848c59f116d63067..f744a2275582560ae3af78b3d540576908d04825 100644 (file)
--- a/basis/cocoa/subclassing/subclassing.factor
+++ b/basis/cocoa/subclassing/subclassing.factor
@@ -64,7 +64,7 @@ IN: cocoa.subclassing
 
 :: define-objc-class ( name superclass protocols methods -- )
     methods prepare-methods :> methods
-    name "cocoa.classes" create drop
+    name "cocoa.classes" create-word drop
     methods name redefine-objc-methods
     name [ methods protocols superclass name (define-objc-class) ] import-objc-class ;
 

diff --git a/basis/compiler/cfg/hats/hats.factor b/basis/compiler/cfg/hats/hats.factor
index fefb4faeea7c18d43025f82a998f65aa87491f47..099ce96827241375d3775c4e5f5618558fb1582a 100644 (file)
--- a/basis/compiler/cfg/hats/hats.factor
+++ b/basis/compiler/cfg/hats/hats.factor
@@ -11,7 +11,7 @@ IN: compiler.cfg.hats
 <PRIVATE
 
 : hat-name ( insn -- word )
-    name>> "##" ?head drop "^^" prepend create-in ;
+    name>> "##" ?head drop "^^" prepend create-word-in ;
 
 : hat-quot ( insn -- quot )
     [

diff --git a/basis/compiler/cfg/instructions/syntax/syntax.factor b/basis/compiler/cfg/instructions/syntax/syntax.factor
index a0fb86852f07898189680725381174539f325dee..12fbe0745e2331798034f31cc024a69e17dac00b 100644 (file)
--- a/basis/compiler/cfg/instructions/syntax/syntax.factor
+++ b/basis/compiler/cfg/instructions/syntax/syntax.factor
@@ -75,7 +75,7 @@ TUPLE: insn-slot-spec type name rep ;
     name>> "," append ;
 
 : define-insn-ctor ( class specs -- )
-    [ [ insn-ctor-name create-in ] [ '[ _ ] [ f ] [ boa , ] surround ] bi ] dip
+    [ [ insn-ctor-name create-word-in ] [ '[ _ ] [ f ] [ boa , ] surround ] bi ] dip
     [ name>> ] map { } <effect> define-declared ;
 
 : define-insn ( class superclass specs -- )

diff --git a/basis/cpu/x86/assembler/syntax/syntax.factor b/basis/cpu/x86/assembler/syntax/syntax.factor
index 6649345bea38c639fe7e1a715e204678294843fb..fad4e147680250fda1e7d50ba60188ca132dadaa 100644 (file)
--- a/basis/cpu/x86/assembler/syntax/syntax.factor
+++ b/basis/cpu/x86/assembler/syntax/syntax.factor
@@ -9,7 +9,7 @@ SYMBOL: registers
 registers [ H{ } clone ] initialize
 
 : define-register ( name num size -- word )
-    [ create-in ] 2dip {
+    [ create-word-in ] 2dip {
         [ 2drop ]
         [ 2drop define-symbol ]
         [ drop "register" set-word-prop ]

diff --git a/basis/functors/functors.factor b/basis/functors/functors.factor
index 904a22d4486f30fff6369ffcc45afe69ff536f10..5f7eabe0404cc1f33bcc5a928e78c5470ac6661c 100644 (file)
--- a/basis/functors/functors.factor
+++ b/basis/functors/functors.factor
@@ -129,11 +129,11 @@ PRIVATE>
 
 SYNTAX: IS [ parse-word ] (INTERPOLATE) ;
 
-SYNTAX: DEFERS [ current-vocab create ] (INTERPOLATE) ;
+SYNTAX: DEFERS [ current-vocab create-word ] (INTERPOLATE) ;
 
-SYNTAX: DEFINES [ create-in ] (INTERPOLATE) ;
+SYNTAX: DEFINES [ create-word-in ] (INTERPOLATE) ;
 
-SYNTAX: DEFINES-PRIVATE [ begin-private create-in end-private ] (INTERPOLATE) ;
+SYNTAX: DEFINES-PRIVATE [ begin-private create-word-in end-private ] (INTERPOLATE) ;
 
 SYNTAX: DEFINES-CLASS [ create-class-in ] (INTERPOLATE) ;
 

diff --git a/basis/gobject-introspection/ffi/ffi.factor b/basis/gobject-introspection/ffi/ffi.factor
index 0735b582414bc5f5691c33307f97f8a6b07b04f2..1bd1a953e15e9c16788d865993a1d8fec1f78fec 100644 (file)
--- a/basis/gobject-introspection/ffi/ffi.factor
+++ b/basis/gobject-introspection/ffi/ffi.factor
@@ -12,7 +12,7 @@ IN: gobject-introspection.ffi
 
 : defer-c-type ( c-type-name -- c-type )
     deferred-type swap (CREATE-C-TYPE) [ typedef ] keep ;
-!     create-in dup
+!     create-word-in dup
 !     [ fake-definition ] [ undefined-def define ] bi ;
 
 :: defer-types ( types type-info-class -- )

diff --git a/basis/gobject-introspection/standard-types/standard-types.factor b/basis/gobject-introspection/standard-types/standard-types.factor
index 4435f439f8dcdec704a69f4fcc66c33699f82fd6..9d630d6b827695aed4819a2e32009460b577622c 100644 (file)
--- a/basis/gobject-introspection/standard-types/standard-types.factor
+++ b/basis/gobject-introspection/standard-types/standard-types.factor
@@ -38,7 +38,7 @@ int lookup-c-type clone
     [ >c-bool ] >>unboxer-quot
     [ c-bool> ] >>boxer-quot
     object >>boxed-class
-"gboolean" create-in typedef
+"gboolean" create-word-in typedef
 
 STRUCT: longdouble { data char[10] } ;
 >>

diff --git a/basis/gobject-introspection/types/types.factor b/basis/gobject-introspection/types/types.factor
index 463af64a1abddc41295ddfda52f229e29592104b..cd244cf9aaa9567705d1079f03f70c6f762cc8de 100644 (file)
--- a/basis/gobject-introspection/types/types.factor
+++ b/basis/gobject-introspection/types/types.factor
@@ -108,5 +108,5 @@ void* lookup-c-type clone
     [ drop deferred-type-error ] >>unboxer-quot
     [ drop deferred-type-error ] >>boxer-quot
     object >>boxed-class
-"deferred-type" create-in typedef
+"deferred-type" create-word-in typedef
 >>

diff --git a/basis/io/encodings/8-bit/8-bit.factor b/basis/io/encodings/8-bit/8-bit.factor
index 17cb5270733f7c89205ddff7227cb32a32fd18a9..8aec5cb496d372504c85b31b30942d26fb178fe1 100644 (file)
--- a/basis/io/encodings/8-bit/8-bit.factor
+++ b/basis/io/encodings/8-bit/8-bit.factor
@@ -41,7 +41,7 @@ M: 8-bit-encoding <decoder>
     8-bit-encodings get-global at <decoder> ;
 
 : create-encoding ( name -- word )
-    create-in
+    create-word-in
     [ define-singleton-class ]
     [ 8-bit-encoding add-mixin-instance ]
     [ ] tri ;

diff --git a/basis/match/match.factor b/basis/match/match.factor
index c9745a1055337f8813659478fda8be67a03951f0..341d967c081bb02e4d078929f79f9797be469e95 100644 (file)
--- a/basis/match/match.factor
+++ b/basis/match/match.factor
@@ -9,7 +9,7 @@ IN: match
 SYMBOL: _
 
 : define-match-var ( name -- )
-    create-in
+    create-word-in
     dup t "match-var" set-word-prop
     dup [ get ] curry ( -- value ) define-declared ;
 

diff --git a/basis/math/partial-dispatch/partial-dispatch.factor b/basis/math/partial-dispatch/partial-dispatch.factor
index d360662679d68dfe0337e1b02cdf985f66e6ff69..078908604489f7dac4206b5158c312c60d22e2ab 100644 (file)
--- a/basis/math/partial-dispatch/partial-dispatch.factor
+++ b/basis/math/partial-dispatch/partial-dispatch.factor
@@ -84,7 +84,7 @@ M: word integer-op-input-classes
     ] [ ] make ;
 
 : integer-op-word ( triple -- word )
-    [ name>> ] map "-" join "math.partial-dispatch" create ;
+    [ name>> ] map "-" join "math.partial-dispatch" create-word ;
 
 : integer-op-quot ( fix-word big-word triple -- quot )
     [ second ] [ third ] bi 2array {

diff --git a/basis/math/vectors/simd/cords/cords.factor b/basis/math/vectors/simd/cords/cords.factor
index 37f1d6db5170bca0e4b7d4d077a4113b0ec5520e..b87c603e4a246f4d7ed6ae5c6cd5d346f612c0e9 100644 (file)
--- a/basis/math/vectors/simd/cords/cords.factor
+++ b/basis/math/vectors/simd/cords/cords.factor
@@ -76,7 +76,7 @@ SYNTAX: A{ \ } [ >A ] parse-literal ;
 
 : define-simd-128-cord ( A/2 T -- )
     [ define-specialized-cord ]
-    [ create-in (define-simd-128-cord) ] 2bi ;
+    [ create-word-in (define-simd-128-cord) ] 2bi ;
 
 SYNTAX: SIMD-128-CORD:
     scan-word scan-token define-simd-128-cord ;

diff --git a/basis/openssl/libssl/libssl.factor b/basis/openssl/libssl/libssl.factor
index 5350fe491d6bef0b069dade7baafa558d4b44121..55de8b8e2f5b212b346b52d0ba75367b73bcfa3c 100644 (file)
--- a/basis/openssl/libssl/libssl.factor
+++ b/basis/openssl/libssl/libssl.factor
@@ -445,7 +445,7 @@ H{ } clone verify-messages set-global
 : verify-message ( n -- word ) verify-messages get-global at ;
 
 SYNTAX: X509_V_:
-    scan-token "X509_V_" prepend create-in
+    scan-token "X509_V_" prepend create-word-in
     scan-number
     [ 1quotation ( -- value ) define-inline ]
     [ verify-messages get set-at ]

diff --git a/basis/roman/roman.factor b/basis/roman/roman.factor
index 391bc41dcba5381ef52a37330d62d5ee7cf95e27..346226bf4e7cb5659e873b66cdc77ece722f4f2d 100644 (file)
--- a/basis/roman/roman.factor
+++ b/basis/roman/roman.factor
@@ -57,7 +57,7 @@ PRIVATE>
 <<
 
 SYNTAX: ROMAN-OP:
-    scan-word [ name>> "roman" prepend create-in ] keep
+    scan-word [ name>> "roman" prepend create-word-in ] keep
     1quotation '[ _ binary-roman-op ]
     scan-effect define-declared ;
 

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index 11ce24bfd253c42a0ba257986f1f63b1266d216a..762ce061764d7d1d37cd92cab9920fa5fd795b9d 100644 (file)
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -106,7 +106,7 @@ MACRO: <experiment> ( word -- )
 
 SYNTAX: TEST:
     scan-token
-    [ create-in ]
+    [ create-word-in ]
     [ "(" ")" surround search '[ _ parse-test ] ] bi
     define-syntax ;
 

diff --git a/basis/tr/tr.factor b/basis/tr/tr.factor
index a76bf80dc2df0de4696a9ba7542aecff9ef7221b..b937b25b932357e5981928c395241b10680106b9 100644 (file)
--- a/basis/tr/tr.factor
+++ b/basis/tr/tr.factor
@@ -25,7 +25,7 @@ M: bad-tr summary
     { { byte-array } { string } } set-specializer ;
 
 : create-tr ( token -- word )
-    create-in dup tr-hints ;
+    create-word-in dup tr-hints ;
 
 : tr-quot ( mapping -- quot )
     '[ [ dup ascii? [ _ tr-nth ] when ] map ] ;

diff --git a/basis/ui/pixel-formats/pixel-formats-docs.factor b/basis/ui/pixel-formats/pixel-formats-docs.factor
index 75921eec44ad411fd7ed909ecc58fd561ff9bcb7..684d87d0b5ac8a51421acbbf19d5392db39849fc 100644 (file)
--- a/basis/ui/pixel-formats/pixel-formats-docs.factor
+++ b/basis/ui/pixel-formats/pixel-formats-docs.factor
@@ -5,7 +5,7 @@ IN: ui.pixel-formats
 ! break circular dependency
 <<
     "ui.gadgets.worlds" create-vocab drop
-    "world" "ui.gadgets.worlds" create drop
+    "world" "ui.gadgets.worlds" create-word drop
     "ui.gadgets.worlds" vocab-words-assoc use-words
 >>
 

diff --git a/basis/unicode/breaks/breaks.factor b/basis/unicode/breaks/breaks.factor
index c6460c8edd74f64b7e3dfc8f66e4704e60745dea..143768645ef790c7dd342128f0aebf6921664691 100644 (file)
--- a/basis/unicode/breaks/breaks.factor
+++ b/basis/unicode/breaks/breaks.factor
@@ -97,7 +97,7 @@ SYMBOL: table
     graphemes iota { SpacingMark } connect
     { Prepend } graphemes iota connect ;
 
-"grapheme-table" create-in
+"grapheme-table" create-word-in
 graphemes init-table table
 [ make-grapheme-table finish-table ] with-variable
 define-constant
@@ -164,7 +164,7 @@ CONSTANT: word-break-classes H{
     { "ExtendNumLet" 12 }
 }
 
-"word-break-table" create-in
+"word-break-table" create-word-in
 "vocab:unicode/data/WordBreakProperty.txt"
 load-interval-file dup array>>
 [ 2 swap [ word-break-classes at ] change-nth ] each
@@ -198,7 +198,7 @@ SYMBOL: check-number-after
         [ { { 0 [ f ] } { 1 [ t ] } [ ] } case ] map
     ] map ;
 
-"word-table" create-in
+"word-table" create-word-in
 unicode-words init-table table
 [ make-word-table finish-word-table ] with-variable
 define-constant

diff --git a/basis/unicode/script/script.factor b/basis/unicode/script/script.factor
index d973f8f7128583a76f3c70ac25257184e9a8e092..278199e63b98885bd47fbcd248e5fdb44ca0a847 100644 (file)
--- a/basis/unicode/script/script.factor
+++ b/basis/unicode/script/script.factor
@@ -7,7 +7,7 @@ IN: unicode.script
 <PRIVATE
 
 <<
-"script-table" create-in
+"script-table" create-word-in
 "vocab:unicode/script/Scripts.txt" load-interval-file
 define-constant
 >>

diff --git a/basis/windows/com/syntax/syntax.factor b/basis/windows/com/syntax/syntax.factor
index a19f15b4834372ba5ef3be49e0bc435fc8377e12..668c1871d3e3ad2e3a809a0b07bee6d046b8cc38 100755 (executable)
--- a/basis/windows/com/syntax/syntax.factor
+++ b/basis/windows/com/syntax/syntax.factor
@@ -53,11 +53,11 @@ ERROR: no-com-interface interface ;
     V{ } clone [ (parse-com-functions) ] keep >array ;
 
 : (iid-word) ( definition -- word )
-    word>> name>> "-iid" append create-in ;
+    word>> name>> "-iid" append create-word-in ;
 
 : (function-word) ( function interface -- word )
     swap [ word>> name>> "::" ] [ name>> ] bi*
-    3append create-in ;
+    3append create-word-in ;
 
 : family-tree ( definition -- definitions )
     dup parent>> [ family-tree ] [ { } ] if*

diff --git a/basis/xmode/tokens/tokens.factor b/basis/xmode/tokens/tokens.factor
index 8a5d8afbf639e8861eae14ca7be79ccf3348ec65..d76c7ff65a3e473258e7d4820381d5bd4acfe9de 100644 (file)
--- a/basis/xmode/tokens/tokens.factor
+++ b/basis/xmode/tokens/tokens.factor
@@ -13,7 +13,7 @@ SYMBOL: tokens
     "KEYWORD4" "LABEL" "LITERAL1" "LITERAL2" "LITERAL3"
     "LITERAL4" "MARKUP" "OPERATOR" "END" "NULL"
 } [
-    dup create-in dup define-symbol
+    dup create-word-in dup define-symbol
 ] H{ } map>assoc tokens set-global
 >>
 

diff --git a/core/bootstrap/primitives.factor b/core/bootstrap/primitives.factor
index e6cc5209dfed9c96e7831234213eeaf2f17e346c..27bd5cf6b39ffc4c6729d355b03722d247f459d1 100755 (executable)
--- a/core/bootstrap/primitives.factor
+++ b/core/bootstrap/primitives.factor
@@ -52,7 +52,7 @@ num-types get f <array> builtins set
 
 call( -- ) ! syntax-quot
 
-! Create some empty vocabs where the below primitives and
+! create-word some empty vocabs where the below primitives and
 ! classes will go
 {
     "alien"
@@ -118,7 +118,7 @@ call( -- ) ! syntax-quot
     tri ;
 
 : prepare-slots ( slots -- slots' )
-    [ [ dup pair? [ first2 create ] when ] map ] map ;
+    [ [ dup pair? [ first2 create-word ] when ] map ] map ;
 
 : define-builtin-slots ( class slots -- )
     prepare-slots make-slots 1 finalize-slots
@@ -130,38 +130,38 @@ call( -- ) ! syntax-quot
 : define-builtin ( symbol slotspec -- )
     [ [ define-builtin-predicate ] keep ] dip define-builtin-slots ;
 
-"fixnum" "math" create register-builtin
-"bignum" "math" create register-builtin
-"tuple" "kernel" create register-builtin
-"float" "math" create register-builtin
+"fixnum" "math" create-word register-builtin
+"bignum" "math" create-word register-builtin
+"tuple" "kernel" create-word register-builtin
+"float" "math" create-word register-builtin
 "f" "syntax" lookup-word register-builtin
-"array" "arrays" create register-builtin
-"wrapper" "kernel" create register-builtin
-"callstack" "kernel" create register-builtin
-"string" "strings" create register-builtin
-"quotation" "quotations" create register-builtin
-"dll" "alien" create register-builtin
-"alien" "alien" create register-builtin
-"word" "words" create register-builtin
-"byte-array" "byte-arrays" create register-builtin
+"array" "arrays" create-word register-builtin
+"wrapper" "kernel" create-word register-builtin
+"callstack" "kernel" create-word register-builtin
+"string" "strings" create-word register-builtin
+"quotation" "quotations" create-word register-builtin
+"dll" "alien" create-word register-builtin
+"alien" "alien" create-word register-builtin
+"word" "words" create-word register-builtin
+"byte-array" "byte-arrays" create-word register-builtin
 
 ! We need this before defining c-ptr below
 "f" "syntax" lookup-word { } define-builtin
 
-"f" "syntax" create [ not ] "predicate" set-word-prop
+"f" "syntax" create-word [ not ] "predicate" set-word-prop
 "f?" "syntax" vocab-words-assoc delete-at
 
 "t" "syntax" lookup-word define-singleton-class
 
 ! Some unions
-"c-ptr" "alien" create [
+"c-ptr" "alien" create-word [
     "alien" "alien" lookup-word ,
     "f" "syntax" lookup-word ,
     "byte-array" "byte-arrays" lookup-word ,
 ] { } make define-union-class
 
 ! A predicate class used for declarations
-"array-capacity" "sequences.private" create
+"array-capacity" "sequences.private" create-word
 "fixnum" "math" lookup-word
 [
     [ dup 0 fixnum>= ] %
@@ -175,7 +175,7 @@ define-predicate-class
 "coercer" set-word-prop
 
 ! Catch-all class for providing a default method.
-"object" "kernel" create
+"object" "kernel" create-word
 [ f f { } intersection-class define-class ]
 [ [ drop t ] "predicate" set-word-prop ]
 bi
@@ -183,51 +183,51 @@ bi
 "object?" "kernel" vocab-words-assoc delete-at
 
 ! Empty class with no instances
-"null" "kernel" create
+"null" "kernel" create-word
 [ f { } f union-class define-class ]
 [ [ drop f ] "predicate" set-word-prop ]
 bi
 
 "null?" "kernel" vocab-words-assoc delete-at
 
-"fixnum" "math" create { } define-builtin
-"fixnum" "math" create "integer>fixnum-strict" "math" create 1quotation "coercer" set-word-prop
+"fixnum" "math" create-word { } define-builtin
+"fixnum" "math" create-word "integer>fixnum-strict" "math" create-word 1quotation "coercer" set-word-prop
 
-"bignum" "math" create { } define-builtin
-"bignum" "math" create ">bignum" "math" create 1quotation "coercer" set-word-prop
+"bignum" "math" create-word { } define-builtin
+"bignum" "math" create-word ">bignum" "math" create-word 1quotation "coercer" set-word-prop
 
-"float" "math" create { } define-builtin
-"float" "math" create ">float" "math" create 1quotation "coercer" set-word-prop
+"float" "math" create-word { } define-builtin
+"float" "math" create-word ">float" "math" create-word 1quotation "coercer" set-word-prop
 
-"array" "arrays" create {
+"array" "arrays" create-word {
     { "length" { "array-capacity" "sequences.private" } read-only }
 } define-builtin
 
-"wrapper" "kernel" create {
+"wrapper" "kernel" create-word {
     { "wrapped" read-only }
 } define-builtin
 
-"string" "strings" create {
+"string" "strings" create-word {
     { "length" { "array-capacity" "sequences.private" } read-only }
     "aux"
 } define-builtin
 
-"quotation" "quotations" create {
+"quotation" "quotations" create-word {
     { "array" { "array" "arrays" } read-only }
     "cached-effect"
     "cache-counter"
 } define-builtin
 
-"dll" "alien" create {
+"dll" "alien" create-word {
     { "path" { "byte-array" "byte-arrays" } read-only }
 } define-builtin
 
-"alien" "alien" create {
+"alien" "alien" create-word {
     { "underlying" { "c-ptr" "alien" } read-only }
     "expired"
 } define-builtin
 
-"word" "words" create {
+"word" "words" create-word {
     { "hashcode" { "fixnum" "math" } }
     "name"
     "vocabulary"
@@ -238,32 +238,32 @@ bi
     { "sub-primitive" read-only }
 } define-builtin
 
-"byte-array" "byte-arrays" create {
+"byte-array" "byte-arrays" create-word {
     { "length" { "array-capacity" "sequences.private" } read-only }
 } define-builtin
 
-"callstack" "kernel" create { } define-builtin
+"callstack" "kernel" create-word { } define-builtin
 
-"tuple" "kernel" create
+"tuple" "kernel" create-word
 [ { } define-builtin ]
 [ define-tuple-layout ]
 bi
 
-! Create special tombstone values
-"tombstone" "hashtables.private" create
+! create-word special tombstone values
+"tombstone" "hashtables.private" create-word
 tuple
 { "state" } define-tuple-class
 
-"((empty))" "hashtables.private" create
+"((empty))" "hashtables.private" create-word
 { f } "tombstone" "hashtables.private" lookup-word
 slots>tuple 1quotation ( -- value ) define-inline
 
-"((tombstone))" "hashtables.private" create
+"((tombstone))" "hashtables.private" create-word
 { t } "tombstone" "hashtables.private" lookup-word
 slots>tuple 1quotation ( -- value ) define-inline
 
 ! Some tuple classes
-"curry" "kernel" create
+"curry" "kernel" create-word
 tuple
 {
     { "obj" read-only }
@@ -285,7 +285,7 @@ tuple
 } cleave
 ( obj quot -- curry ) define-declared
 
-"compose" "kernel" create
+"compose" "kernel" create-word
 tuple
 {
     { "first" read-only }
@@ -311,7 +311,7 @@ tuple
 ! Sub-primitive words
 : make-sub-primitive ( word vocab effect -- )
     [
-        create
+        create-word
         dup t "primitive" set-word-prop
         dup 1quotation
     ] dip define-declared ;
@@ -385,7 +385,7 @@ tuple
 : make-primitive ( word vocab function effect -- )
     [
         [
-            create
+            create-word
             dup reset-word
             dup t "primitive" set-word-prop
         ] dip
@@ -558,6 +558,6 @@ tuple
 } [ first4 make-primitive ] each
 
 ! Bump build number
-"build" "kernel" create build 1 + [ ] curry ( -- n ) define-declared
+"build" "kernel" create-word build 1 + [ ] curry ( -- n ) define-declared
 
 ] with-compilation-unit

diff --git a/core/bootstrap/syntax.factor b/core/bootstrap/syntax.factor
index 651beae2347234f16fba90400197c150325352c9..d103915eabc7494d3111bea06abaece68a6141ba 100644 (file)
--- a/core/bootstrap/syntax.factor
+++ b/core/bootstrap/syntax.factor
@@ -96,7 +96,7 @@ IN: bootstrap.syntax
         "<<<<<<<"
         "======="
         ">>>>>>>"
-    } [ "syntax" create drop ] each
+    } [ "syntax" create-word drop ] each
 
     "t" "syntax" lookup-word define-symbol
 ] with-compilation-unit

diff --git a/core/classes/classes.factor b/core/classes/classes.factor
index 5aa0d97c2431376d4fb56938ba5267bb3006ac73..6d7039dcdfa723780ebc908a494042f8d0e62342 100644 (file)
--- a/core/classes/classes.factor
+++ b/core/classes/classes.factor
@@ -73,7 +73,7 @@ PRIVATE>
 PREDICATE: predicate < word "predicating" word-prop >boolean ;
 
 : create-predicate-word ( word -- predicate )
-    [ name>> "?" append ] [ vocabulary>> ] bi create
+    [ name>> "?" append ] [ vocabulary>> ] bi create-word
     dup predicate? [ dup reset-generic ] unless ;
 
 GENERIC: class-of ( object -- class )

diff --git a/core/classes/parser/parser.factor b/core/classes/parser/parser.factor
index 568c49065ffe1446200aa02d319a5bc917817720..7802a1ab87ee9e79922d57664848cb49b6262da4 100644 (file)
--- a/core/classes/parser/parser.factor
+++ b/core/classes/parser/parser.factor
@@ -7,7 +7,7 @@ IN: classes.parser
     location remember-class ;
 
 : create-class-in ( string -- word )
-    current-vocab create
+    current-vocab create-word
     dup t "defining-class" set-word-prop
     dup set-last-word
     dup save-class-location

diff --git a/core/parser/parser-docs.factor b/core/parser/parser-docs.factor
index e391ddc7048de25edc2424606b5d56b6be12b354..0d30bdd9b85dcb874dcc19b175ba38467a235190 100644 (file)
--- a/core/parser/parser-docs.factor
+++ b/core/parser/parser-docs.factor
@@ -123,7 +123,7 @@ HELP: save-location
 HELP: bad-number
 { $error-description "Indicates the parser encountered an invalid numeric literal." } ;
 
-HELP: create-in
+HELP: create-word-in
 { $values { "str" "a word name" } { "word" "a new word" } }
 { $description "Creates a word in the current vocabulary. Until re-defined, the word throws an error when invoked." }
 $parsing-note ;

diff --git a/core/parser/parser-tests.factor b/core/parser/parser-tests.factor
index 55ea673c3c33e5f5e9dc5d664cc7c041bf567e94..d561d909e4a6016be84ad7bc8961553e012137ed 100644 (file)
--- a/core/parser/parser-tests.factor
+++ b/core/parser/parser-tests.factor
@@ -203,7 +203,6 @@ DEFER: foo
 [ f ] [
     "IN: parser.tests : x ( -- ) ;"
     <string-reader> "a" parse-stream drop
-    
     "y" "parser.tests" lookup-word
 ] unit-test
 
@@ -551,7 +550,7 @@ EXCLUDE: qualified.tests.bar => x ;
 [ t ] [ "was-once-a-word-bug" "parser.tests" lookup-word >boolean ] unit-test
 
 [ [ ] ] [
-    "IN: parser.tests USE: words << \"was-once-a-word-bug\" \"parser.tests\" create [ ] ( -- ) define-declared >>"
+    "IN: parser.tests USE: words << \"was-once-a-word-bug\" \"parser.tests\" create-word [ ] ( -- ) define-declared >>"
     <string-reader> "was-once-a-word-test" parse-stream
 ] unit-test
 
@@ -630,7 +629,7 @@ EXCLUDE: qualified.tests.bar => x ;
     [ "vocabs.loader.test.l" use-vocab ] must-fail
     [ f ] [ "vocabs.loader.test.l" manifest get search-vocab-names>> in? ] unit-test
     [ ] [ "vocabs.loader.test.l" unuse-vocab ] unit-test
-    [ f ] [ "vocabs.loader.test.l" manifest get search-vocab-names>> in? ] unit-test    
+    [ f ] [ "vocabs.loader.test.l" manifest get search-vocab-names>> in? ] unit-test
 ] with-file-vocabs
 
 ! Test cases for #183

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 04ff5cb7a5d9268bea6fc2f76e215ff80cc0fa5b..eb2c3323204c3c55f235831497192f843e77b61d 100644 (file)
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -17,8 +17,8 @@ IN: parser
 
 M: parsing-word stack-effect drop ( parsed -- parsed ) ;
 
-: create-in ( str -- word )
-    current-vocab create dup set-last-word dup save-location ;
+: create-word-in ( str -- word )
+    current-vocab create-word dup set-last-word dup save-location ;
 
 SYMBOL: auto-use?
 
@@ -29,7 +29,7 @@ SYMBOL: auto-use?
         dup vocabulary>>
         [ auto-use-vocab ]
         [ "Added \"" "\" vocabulary to search path" surround note. ] bi
-    ] [ create-in ] if ;
+    ] [ create-word-in ] if ;
 
 : ignore-forwards ( seq -- seq' )
     [ forward-reference? ] reject ;
@@ -81,7 +81,7 @@ ERROR: invalid-word-name string ;
     [ invalid-word-name ] when ;
 
 : scan-new ( -- word )
-    scan-word-name create-in ;
+    scan-word-name create-word-in ;
 
 : scan-new-word ( -- word )
     scan-new dup reset-generic ;

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index 1c1eec61c605b80c53ecb4a96f7e344544bda473..aed7499673d8892a85bbff7d1c79a71da12ea985 100644 (file)
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -39,7 +39,7 @@ M: object reader-quot
     ] [ ] make ;
 
 : reader-word ( name -- word )
-    ">>" append "accessors" create
+    ">>" append "accessors" create-word
     dup t "reader" set-word-prop ;
 
 : reader-props ( slot-spec -- assoc )
@@ -60,7 +60,7 @@ M: object reader-quot
     ] 2bi ;
 
 : writer-word ( name -- word )
-    "<<" append "accessors" create
+    "<<" append "accessors" create-word
     dup t "writer" set-word-prop ;
 
 ERROR: bad-slot-value value class ;
@@ -107,7 +107,7 @@ M: object writer-quot
     ] 2bi ;
 
 : setter-word ( name -- word )
-    ">>" prepend "accessors" create ;
+    ">>" prepend "accessors" create-word ;
 
 : define-setter ( name -- )
     dup setter-word dup deferred? [
@@ -116,7 +116,7 @@ M: object writer-quot
     ] [ 2drop ] if ;
 
 : changer-word ( name -- word )
-    "change-" prepend "accessors" create ;
+    "change-" prepend "accessors" create-word ;
 
 : define-changer ( name -- )
     dup changer-word dup deferred? [

diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor
index c115a3c36952e5c48fb6170081f4594da59819b9..2d805a2c4f092f329301868f7c87a552d15121c1 100644 (file)
--- a/core/syntax/syntax.factor
+++ b/core/syntax/syntax.factor
@@ -127,7 +127,7 @@ IN: bootstrap.syntax
     ] define-core-syntax
 
     "SYMBOLS:" [
-        ";" [ create-in [ reset-generic ] [ define-symbol ] bi ] each-token
+        ";" [ create-word-in [ reset-generic ] [ define-symbol ] bi ] each-token
     ] define-core-syntax
 
     "SINGLETONS:" [
@@ -135,7 +135,7 @@ IN: bootstrap.syntax
     ] define-core-syntax
 
     "DEFER:" [
-        scan-token current-vocab create
+        scan-token current-vocab create-word
         [ fake-definition ] [ set-last-word ] [ undefined-def define ] tri
     ] define-core-syntax
 

diff --git a/core/vocabs/loader/loader-tests.factor b/core/vocabs/loader/loader-tests.factor
index 76e4e8b2b3be9bf0c02636cc9ce1bf4aedd760a1..073f9804d261ba87c98e6e6cfa7b28f7c7a0b4cb 100644 (file)
--- a/core/vocabs/loader/loader-tests.factor
+++ b/core/vocabs/loader/loader-tests.factor
@@ -84,7 +84,7 @@ IN: vocabs.loader.tests
 
 [ ] [
     [
-        "bob" "vocabs.loader.test.b" create [ ] define
+        "bob" "vocabs.loader.test.b" create-word [ ] define
     ] with-compilation-unit
 ] unit-test
 

diff --git a/core/vocabs/parser/parser-tests.factor b/core/vocabs/parser/parser-tests.factor
index aae7efc04eebceac4ef9ea2d1a95204f51acc2b9..1cd2d309a9da97e9319013e0926f66ded1477014 100644 (file)
--- a/core/vocabs/parser/parser-tests.factor
+++ b/core/vocabs/parser/parser-tests.factor
@@ -20,7 +20,7 @@ must-fail-with
     [ aaa ] [ "uutt" search ] unit-test
     [ aaa ] [ "vocabs.parser.tests:aaa" search ] unit-test
 
-    [ ] [ [ "bbb" "vocabs.parser.tests" create drop ] with-compilation-unit ] unit-test
+    [ ] [ [ "bbb" "vocabs.parser.tests" create-word drop ] with-compilation-unit ] unit-test
 
     [ "bbb" ] [ "vocabs.parser.tests:bbb" search name>> ] unit-test
 
@@ -34,18 +34,18 @@ must-fail-with
 
     [ ] [ "vocabs.parser.tests.foo" set-current-vocab ] unit-test
 
-    [ ] [ [ "bbb" current-vocab create drop ] with-compilation-unit ] unit-test
-    
+    [ ] [ [ "bbb" current-vocab create-word drop ] with-compilation-unit ] unit-test
+
     [ t ] [ "bbb" search >boolean ] unit-test
 
     [ ] [ [ "vocabs.parser.tests.foo" forget-vocab ] with-compilation-unit ] unit-test
-    
-    [ [ "bbb" current-vocab create drop ] with-compilation-unit ] [ error>> no-current-vocab-error? ] must-fail-with
+
+    [ [ "bbb" current-vocab create-word drop ] with-compilation-unit ] [ error>> no-current-vocab-error? ] must-fail-with
 
     [ begin-private ] [ error>> no-current-vocab-error? ] must-fail-with
 
     [ end-private ] [ error>> no-current-vocab-error? ] must-fail-with
 
     [ f ] [ "bbb" search >boolean ] unit-test
-    
+
 ] with-manifest

diff --git a/core/words/words-docs.factor b/core/words/words-docs.factor
index b4651651d4cd365d170667b70d2dcda4df755bd2..5e7b8d85fcd9414a3de5f85f2e0eeb6467383d92 100644 (file)
--- a/core/words/words-docs.factor
+++ b/core/words/words-docs.factor
@@ -9,8 +9,8 @@ $nl
 $nl
 "Parsing words add definitions to the current vocabulary. When a source file is being parsed, the current vocabulary is initially set to " { $vocab-link "scratchpad" } ". The current vocabulary may be changed with the " { $link POSTPONE: IN: } " parsing word (see " { $link "word-search" } ")."
 { $subsections
-    create
-    create-in
+    create-word
+    create-word-in
     lookup-word
 } ;
 
@@ -246,13 +246,13 @@ $low-level-note
 
 HELP: <word>
 { $values { "name" string } { "vocab" string } { "word" word } }
-{ $description "Allocates a word with the specified name and vocabulary. User code should call " { $link <uninterned-word> } " to create uninterned words and " { $link create } " to create interned words, instead of calling this constructor directly." }
+{ $description "Allocates a word with the specified name and vocabulary. User code should call " { $link <uninterned-word> } " to create uninterned words and " { $link create-word } " to create interned words, instead of calling this constructor directly." }
 { $notes "This word must be called from inside " { $link with-compilation-unit } "." } ;
 
 HELP: <uninterned-word>
 { $values { "name" string } { "word" word } }
 { $description "Creates an uninterned word with the specified name,  that is not equal to any other word in the system." }
-{ $notes "Unlike " { $link create } ", this word does not have to be called from inside " { $link with-compilation-unit } "." } ;
+{ $notes "Unlike " { $link create-word } ", this word does not have to be called from inside " { $link with-compilation-unit } "." } ;
 
 HELP: gensym
 { $values { "word" word } }
@@ -262,7 +262,7 @@ HELP: gensym
     "( gensym )"
     }
 }
-{ $notes "Unlike " { $link create } ", this word does not have to be called from inside " { $link with-compilation-unit } "." } ;
+{ $notes "Unlike " { $link create-word } ", this word does not have to be called from inside " { $link with-compilation-unit } "." } ;
 
 HELP: bootstrapping?
 { $var-description "Set by the library while bootstrap is in progress. Some parsing words need to behave differently during bootstrap." } ;
@@ -286,17 +286,17 @@ HELP: lookup-word
 
 HELP: reveal
 { $values { "word" word } }
-{ $description "Adds a newly-created word to the dictionary. Usually this word does not need to be called directly, and is only called as part of " { $link create } "." } ;
+{ $description "Adds a newly-created word to the dictionary. Usually this word does not need to be called directly, and is only called as part of " { $link create-word } "." } ;
 
 HELP: check-create
 { $values { "name" string } { "vocab" string } }
 { $description "Throws a " { $link check-create } " error if " { $snippet "name" } " or " { $snippet "vocab" } " is not a string." }
-{ $error-description "Thrown if " { $link create } " is called with invalid parameters." } ;
+{ $error-description "Thrown if " { $link create-word } " is called with invalid parameters." } ;
 
-HELP: create
+HELP: create-word
 { $values { "name" string } { "vocab" string } { "word" word } }
 { $description "Creates a new word. If the vocabulary already contains a word with the requested name, outputs the existing word. The vocabulary must exist already; if it does not, you must call " { $link create-vocab } " first." }
-{ $notes "This word must be called from inside " { $link with-compilation-unit } ". Parsing words should call " { $link create-in } " instead of this word." } ;
+{ $notes "This word must be called from inside " { $link with-compilation-unit } ". Parsing words should call " { $link create-word-in } " instead of this word." } ;
 
 HELP: constructor-word
 { $values { "name" string } { "vocab" string } { "word" word } }

diff --git a/core/words/words-tests.factor b/core/words/words-tests.factor
index 18914bcacba25cd80b8d082786a3d57f110110b0..ca5c6ad3fd6035001f71bcf9cc67f6ba1b8f5cc2 100644 (file)
--- a/core/words/words-tests.factor
+++ b/core/words/words-tests.factor
@@ -6,7 +6,7 @@ IN: words.tests
 
 [ 4 ] [
     [
-        "poo" "words.tests" create [ 2 2 + ] ( -- n ) define-declared
+        "poo" "words.tests" create-word [ 2 2 + ] ( -- n ) define-declared
     ] with-compilation-unit
     "poo" "words.tests" lookup-word execute
 ] unit-test
@@ -25,7 +25,7 @@ DEFER: plist-test
     \ plist-test "sample-property" word-prop
 ] unit-test
 
-[ ] [ [ "create-test" "scratchpad" create { 1 2 } "testing" set-word-prop ] with-compilation-unit ] unit-test
+[ ] [ [ "create-test" "scratchpad" create-word { 1 2 } "testing" set-word-prop ] with-compilation-unit ] unit-test
 
 [ { 1 2 } ] [
     "create-test" "scratchpad" lookup-word "testing" word-prop
@@ -34,7 +34,7 @@ DEFER: plist-test
 [
     [ t ] [ \ array? "array?" "arrays" lookup-word = ] unit-test
 
-    [ ] [ [ "test-scope" "scratchpad" create drop ] with-compilation-unit ] unit-test
+    [ ] [ [ "test-scope" "scratchpad" create-word drop ] with-compilation-unit ] unit-test
 ] with-scope
 
 [ "test-scope" ] [
@@ -73,7 +73,7 @@ DEFER: deferred
 
 [ ] [ "IN: words.tests FORGET: not-compiled" eval( -- ) ] unit-test
 
-[ ] [ [ "no-loc" "words.tests" create drop ] with-compilation-unit ] unit-test
+[ ] [ [ "no-loc" "words.tests" create-word drop ] with-compilation-unit ] unit-test
 [ f ] [ "no-loc" "words.tests" lookup-word where ] unit-test
 
 [ ] [ "IN: words.tests : no-loc-2 ( -- ) ;" eval( -- ) ] unit-test

diff --git a/core/words/words.factor b/core/words/words.factor
index 7b0f922e9822fe41cf9834c9897e2fb92ebdac4a..37f7f7b0ddf3f2e70ff4cd45721a9d77af7fc24c 100644 (file)
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -210,7 +210,7 @@ ERROR: bad-create name vocab ;
     2dup [ string? ] [ [ string? ] [ vocab? ] bi or ] bi* and
     [ bad-create ] unless ;
 
-: create ( name vocab -- word )
+: create-word ( name vocab -- word )
     check-create 2dup lookup-word
     [ 2nip ] [
         vocab-name <word>
@@ -219,7 +219,7 @@ ERROR: bad-create name vocab ;
     ] if* ;
 
 : constructor-word ( name vocab -- word )
-    [ "<" ">" surround ] dip create ;
+    [ "<" ">" surround ] dip create-word ;
 
 PREDICATE: parsing-word < word "parsing" word-prop ;
 

diff --git a/extra/constructors/constructors.factor b/extra/constructors/constructors.factor
index 4690fa140a412559f1e5b06437dbe926d8af5945..c1a5ef55d06334f6d8c53490ed9fc11bf223a49b 100644 (file)
--- a/extra/constructors/constructors.factor
+++ b/extra/constructors/constructors.factor
@@ -38,7 +38,7 @@ ERROR: unknown-constructor-parameters class effect unknown ;
     [ constructor-boa-quot ] keep define-declared ;
 
 : create-reset ( string -- word )
-    create-in dup reset-generic ;
+    create-word-in dup reset-generic ;
 
 : scan-constructor ( -- word class )
     scan-new-word scan-class ;

diff --git a/extra/cpu/8080/emulator/emulator.factor b/extra/cpu/8080/emulator/emulator.factor
index 41f7f24a7490bd05ad1f281374fb7e27728918e7..557bddc6f7f6f934abdeaba7cdd36f414eb1c919 100644 (file)
--- a/extra/cpu/8080/emulator/emulator.factor
+++ b/extra/cpu/8080/emulator/emulator.factor
@@ -1377,7 +1377,7 @@ SYMBOL: last-opcode
     #! that would implement that instruction.
     dup " " join instruction-quotations
     [
-       "_" join [ "emulate-" % % ] "" make create-in
+       "_" join [ "emulate-" % % ] "" make create-word-in
        dup last-instruction set-global
     ] dip ( cpu -- ) define-declared ;
 

diff --git a/extra/cuda/syntax/syntax.factor b/extra/cuda/syntax/syntax.factor
index e3173995e2c3625d5f2c5fa76cc029da4c2dbfd1..0be2df2f14348944e71bc91ce8f075600e4d901c 100644 (file)
--- a/extra/cuda/syntax/syntax.factor
+++ b/extra/cuda/syntax/syntax.factor
@@ -10,9 +10,9 @@ SYNTAX: CUDA-LIBRARY:
     [ current-cuda-library set-global ] bi ;
 
 SYNTAX: CUDA-FUNCTION:
-    scan-token [ create-in current-cuda-library get ] keep
+    scan-token [ create-word-in current-cuda-library get ] keep
     ";" scan-c-args drop define-cuda-function ;
 
 SYNTAX: CUDA-GLOBAL:
-    scan-token [ create-in current-cuda-library get ] keep
+    scan-token [ create-word-in current-cuda-library get ] keep
     define-cuda-global ;

diff --git a/extra/game/worlds/worlds.factor b/extra/game/worlds/worlds.factor
index d48aa94f65997ed5dc8f14459ca57e56170980c0..2f1284a3fe5f0f2fe26ca0e3d2b943a658c5d6ce 100644 (file)
--- a/extra/game/worlds/worlds.factor
+++ b/extra/game/worlds/worlds.factor
@@ -79,7 +79,7 @@ M: game-world apply-world-attributes
     f swap open-window* dup promise>> ?promise drop ;
 
 : define-attributes-word ( word tuple -- )
-    [ name>> "-attributes" append create-in ] dip define-constant ;
+    [ name>> "-attributes" append create-word-in ] dip define-constant ;
 
 SYNTAX: GAME:
     scan-new-word

diff --git a/extra/gml/macros/macros.factor b/extra/gml/macros/macros.factor
index 74c6208ea44926b5b60899866ea020746f826d97..ca635a3fbdfdc92234de412f8e84b49f02218767 100644 (file)
--- a/extra/gml/macros/macros.factor
+++ b/extra/gml/macros/macros.factor
@@ -31,7 +31,7 @@ SYNTAX: LOG-GML:
     [let
         (GML:) :> ( word name effect def )
 
-        name "-record" append create-in :> record-class
+        name "-record" append create-word-in :> record-class
         record-class tuple effect in>> define-tuple-class
 
         record-class def effect in>> length

diff --git a/extra/gml/runtime/runtime.factor b/extra/gml/runtime/runtime.factor
index b8f5e8c5e09fc0c728c5c5b5932131990a517863..4b6424bdf9bcbcb65785e8502c128982e9c7410b 100644 (file)
--- a/extra/gml/runtime/runtime.factor
+++ b/extra/gml/runtime/runtime.factor
@@ -186,7 +186,7 @@ global-dictionary [ H{ } clone ] initialize
     primitive-effect define-declared ;
 
 : scan-gml-name ( -- word name )
-    scan-token [ "gml-" prepend create-in ] keep ;
+    scan-token [ "gml-" prepend create-word-in ] keep ;
 
 : (GML:) ( -- word name effect def )
     scan-gml-name scan-effect parse-definition ;

diff --git a/extra/project-euler/common/common.factor b/extra/project-euler/common/common.factor
index 3fc7134254b450cdc49fe6aea69e3bceb9d11afc..ac5835fae58608de4b244a05b3a11765f07a5cdc 100644 (file)
--- a/extra/project-euler/common/common.factor
+++ b/extra/project-euler/common/common.factor
@@ -158,7 +158,7 @@ PRIVATE>
 
 SYNTAX: SOLUTION:
     scan-word
-    [ name>> "-main" append create-in ] keep
+    [ name>> "-main" append create-word-in ] keep
     [ drop current-vocab main<< ]
     [ [ . ] swap prefix ( -- ) define-declared ]
     2bi ;

diff --git a/extra/python/syntax/syntax.factor b/extra/python/syntax/syntax.factor
index 17be91a8d027071894b7d9dd01c67573377bd188..fecc028a3f55c673f50d002030a225e0cd3e3d64 100644 (file)
--- a/extra/python/syntax/syntax.factor
+++ b/extra/python/syntax/syntax.factor
@@ -35,7 +35,7 @@ SYMBOL: current-context
 
 : make-factor-words ( module name prefix? -- call-word obj-word )
     [ [ ":" glue ] [ ":$" glue ] 2bi ] [ nip dup "$" prepend ] if
-    [ create-in ] bi@ ;
+    [ create-word-in ] bi@ ;
 
 : import-getattr ( module name -- alien )
     [ py-import ] dip getattr ;
@@ -50,10 +50,10 @@ SYMBOL: current-context
     '[ @ rot _ getattr -rot call-object-full @ ] ;
 
 : method-callable ( name effect -- )
-    [ dup create-in swap ] dip [ make-method-quot ] keep define-inline ;
+    [ dup create-word-in swap ] dip [ make-method-quot ] keep define-inline ;
 
 : method-object ( name -- )
-    [ "$" prepend create-in ] [ '[ _ getattr ] ] bi
+    [ "$" prepend create-word-in ] [ '[ _ getattr ] ] bi
     { "obj" } { "obj'" } <effect> define-inline ;
 
 : add-method ( name effect -- )

diff --git a/extra/variants/variants.factor b/extra/variants/variants.factor
index 3fd92e11f9ff0e6bbd6942f75f8d62c1550830ab..7450f29ff883e90033abecf607262690b2435412 100644 (file)
--- a/extra/variants/variants.factor
+++ b/extra/variants/variants.factor
@@ -14,7 +14,7 @@ M: variant-class initial-value*
 
 : define-tuple-class-and-boa-word ( class superclass slots -- )
     pick [ define-tuple-class ] dip
-    dup name>> "<" ">" surround create-in swap define-boa-word ;
+    dup name>> "<" ">" surround create-word-in swap define-boa-word ;
 
 : define-variant-member ( member -- class )
     dup array? [ first3 pick [ define-tuple-class-and-boa-word ] dip ] [ dup define-singleton-class ] if ;

diff --git a/unmaintained/alien/cxx/cxx.factor b/unmaintained/alien/cxx/cxx.factor
index 1e788d47137192d2b00d4888d1c87a5f624231d7..a8449b84f571152e92fb9b89dce46914d39cf8d5 100644 (file)
--- a/unmaintained/alien/cxx/cxx.factor
+++ b/unmaintained/alien/cxx/cxx.factor
@@ -12,7 +12,7 @@ IN: alien.cxx
     create-class-in [ define-mixin-class ] keep ;
 
 : class-tuple-word ( word -- word' )
-    "#" append create-in ;
+    "#" append create-word-in ;
 
 : define-class-tuple ( word mixin -- )
     [ drop class-wrapper { } define-tuple-class ]

diff --git a/unmaintained/alien/marshall/structs/structs.factor b/unmaintained/alien/marshall/structs/structs.factor
index 4eabc4428cd7a2cf6ce421a7680e9db710b91a82..07ebb6a0cad13fa68cf39c8b8614c6f8264f3f91 100644 (file)
--- a/unmaintained/alien/marshall/structs/structs.factor
+++ b/unmaintained/alien/marshall/structs/structs.factor
@@ -27,7 +27,7 @@ IN: alien.marshall.structs
 
 : define-struct-constructor ( class -- )
     {
-        [ name>> "<" prepend ">" append create-in ]
+        [ name>> "<" prepend ">" append create-word-in ]
         [ '[ _ new ] ]
         [ name>> '[ _ malloc-struct >>underlying ] append ]
         [ name>> 1array ]
@@ -35,7 +35,7 @@ IN: alien.marshall.structs
 PRIVATE>
 
 :: define-struct-tuple ( name -- )
-    name create-in :> class
+    name create-word-in :> class
     class struct-wrapper { } define-tuple-class
     class define-struct-constructor
     name c-type fields>> [

diff --git a/unmaintained/modules/rpc/rpc.factor b/unmaintained/modules/rpc/rpc.factor
index b394090d553dca0318d51b30edb30ee2ad46d135..7558ad94817ae19eb2f747421a7f66d2070f8361 100644 (file)
--- a/unmaintained/modules/rpc/rpc.factor
+++ b/unmaintained/modules/rpc/rpc.factor
@@ -11,7 +11,7 @@ TUPLE: rpc-request args vocabspec wordname ;
     serialize flush deserialize dup no-vocab? [ throw ] when ;
 
 :: define-remote ( str effect addrspec vocabspec -- )
-    str create-in effect [ in>> length ] [ out>> length ] bi
+    str create-word-in effect [ in>> length ] [ out>> length ] bi
     '[ _ narray vocabspec str rpc-request boa addrspec 9012 <inet> binary
     [ "doer" serialize send-with-check ] with-client _ firstn ]
     effect define-declared ;

diff --git a/unmaintained/semantic-db/semantic-db.factor b/unmaintained/semantic-db/semantic-db.factor
index c70386945657824003bbe557f591090cee2ae27a..c4bb7728a34178d572650c29ee76342359da5af8 100644 (file)
--- a/unmaintained/semantic-db/semantic-db.factor
+++ b/unmaintained/semantic-db/semantic-db.factor
@@ -207,7 +207,7 @@ C: <relation-definition> relation-definition
     ] if ;
 
 : (define-relation-word) ( id-word name>> definition -- id-word )
-    >r create-in over [ execute ] curry r> compose define ;
+    >r create-word-in over [ execute ] curry r> compose define ;
 
 : define-relation-word ( relation-definition id-word given-word-name word-type definition -- relation-definition id-word )
     >r >r [
@@ -229,7 +229,7 @@ C: <relation-definition> relation-definition
     [ ensure-context ensure-relation ] 2curry define ;
 
 : create-id-word ( relation-definition -- id-word )
-    dup id-word>> "id-word" choose-word-name create-in ;
+    dup id-word>> "id-word" choose-word-name create-word-in ;
 
 PRIVATE>