FUEL: make it so $complex-shuffle words (like -rot) are rendered correctly

diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el
index 0855a4402fd4301041b360baaec75eb599b4c748..60e053d9fd4c197c3a82427c5187c195b01a55cc 100644 (file)
--- a/misc/fuel/fuel-markup.el
+++ b/misc/fuel/fuel-markup.el
@@ -106,6 +106,7 @@
     ($code . fuel-markup--code)
     ($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)
@@ -467,6 +468,15 @@
     (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))