cleanup "over push" is "suffix!".

[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 2432dce42015c9eec5d0bccc69c023aad6edc212..c70386945657824003bbe557f591090cee2ae27a 100644 (file)
--- a/unmaintained/semantic-db/semantic-db.factor
+++ b/unmaintained/semantic-db/semantic-db.factor
@@ -259,7 +259,7 @@ C: <node-tree> node-tree
 
 : (get-node-chain) ( node next-selector seq -- seq )
     pick [
-        over push >r [ call ] keep r> (get-node-chain)
+        suffix! >r [ call ] keep r> (get-node-chain)
     ] [
         2nip
     ] if* ;