FUEL: make it so $complex-shuffle words (like -rot) are rendered correctly
parent
4e8258c94b
commit
17997bb479
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue