steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Björn Lindqvist 2015-06-08 00:03:35 +02:00 committed by John Benediktsson
parent 4e8258c94b
commit 17997bb479
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
misc/fuel/fuel-markup.el
View File

@ -106,6 +106,7 @@
($code . fuel-markup--code) ($code . fuel-markup--code)
($command . fuel-markup--command) ($command . fuel-markup--command)
($command-map . fuel-markup--null) ($command-map . fuel-markup--null)
($complex-shuffle . fuel-markup--complex-shuffle)
($contract . fuel-markup--contract) ($contract . fuel-markup--contract)
($curious . fuel-markup--curious) ($curious . fuel-markup--curious)
($definition . fuel-markup--definition) ($definition . fuel-markup--definition)
@ -467,6 +468,15 @@
(fuel-markup--list (fuel-markup--list
(cons '$list (mapcar (lambda (a) (list '$link a a 'author)) authors))))) (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) (defun fuel-markup--list (e)
(fuel-markup--insert-nl-if-nb) (fuel-markup--insert-nl-if-nb)
(dolist (elt (cdr e)) (dolist (elt (cdr e))