kernel: Retire $complex-shuffle

[factor.git] / misc / fuel / fuel-markup.el

diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el
index 2fc2b8d6ee56906d30946bd2cb1a2b8efd495a86..de40a184342e8e8e9ae1bceabee05dfd051af48c 100644 (file)
--- a/misc/fuel/fuel-markup.el
+++ b/misc/fuel/fuel-markup.el
@@ -109,7 +109,6 @@
     ($code . (lambda (e) (fuel-markup--code e t)))
     ($command . fuel-markup--command)
     ($command-map . fuel-markup--null)
-    ($complex-shuffle . fuel-markup--complex-shuffle)
     ($contract . fuel-markup--contract)
     ($curious . fuel-markup--curious)
     ($definition . fuel-markup--definition)
@@ -489,15 +488,6 @@ the 'words.' word emits."
     (fuel-markup--list
      (cons '$list (mapcar (lambda (a) (list '$link a a 'author)) authors)))))
 
-(defun fuel-markup--complex-shuffle (e)
-  (fuel-markup--description
-   `($description "Shuffle word. Rearranges the top of the datastack as "
-                  "indicated in the stack effect pattern."))
-  (fuel-markup--elem-with-heading
-   `(nil "The data flow represented by this shuffle word can be more clearly "
-         "expressed using " ($vocab-link "Lexical variables" "locals") ".")
-   "This word is deprecated"))
-
 (defun fuel-markup--list (e)
   (fuel-markup--insert-nl-if-nb)
   (dolist (elt (cdr e))