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

[factor.git] / unmaintained / semantic-db / semantic-db.factor

diff --git a/unmaintained/semantic-db/semantic-db.factor b/unmaintained/semantic-db/semantic-db.factor
index c4bb7728a34178d572650c29ee76342359da5af8..f2bf9ad4b55a8dd0477a293a97c55e1d1493fb2a 100644 (file)
--- a/unmaintained/semantic-db/semantic-db.factor
+++ b/unmaintained/semantic-db/semantic-db.factor
@@ -20,7 +20,7 @@ node "node"
 : load-node ( id -- node ) f <node> select-tuple ;
 
 : node-content ( node -- content )
-    dup content>> [ nip ] [ select-tuple content>> ] if* ;
+    dup content>> [ ] [ select-tuple content>> ] ?if ;
 
 : node= ( node node -- ? ) [ id>> ] same? ;