tools.test: Make the flag public. Finish porting tester changes to fuzzer.

[factor.git] / unmaintained / alien / marshall / structs / structs.factor

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>> [