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

[factor.git] / unmaintained / alien / cxx / cxx.factor

diff --git a/unmaintained/alien/cxx/cxx.factor b/unmaintained/alien/cxx/cxx.factor
index 9d0ee24f505f6df8c400162e8e1529189bc5f204..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 ]
@@ -24,7 +24,7 @@ PRIVATE>
     add-mixin-instance define-class-tuple ;
 
 :: define-c++-method ( class-name generic name types effect virtual -- )
-    [ name % "_" % class-name { { CHAR: : CHAR: _ } } substitute % ] "" make           :> name'
+    [ name % "_" % class-name H{ { CHAR: : CHAR: _ } } substitute % ] "" make           :> name'
     effect [ in>> "self" suffix ] [ out>> ] bi <effect> :> effect'
     types class-name "*" append suffix                  :> types'
     effect in>> "," join                                :> args