akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

432

This commit is contained in:
Kartik K. Agaram 2014-12-17 10:41:43 -08:00
parent 4725111d23
commit 9eedf0348d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mu.arc
View File

@ -1003,7 +1003,7 @@
(def add-code (forms)
(each (op . rest) forms
(case op
; syntax: function <name> [ <instructions> ]
; function <name> [ <instructions> ]
; don't apply our lightweight tools just yet
function!
(let (name (_make-br-fn body)) rest
@ -1014,7 +1014,7 @@
(assert (is 'make-br-fn _make-br-fn))
(= function*.name (join body function*.name)))
; syntax: before <label> [ <instructions> ]
; before <label> [ <instructions> ]
;
; multiple before directives => code in order
before
@ -1023,7 +1023,7 @@
(or= before*.label (queue))
(enq fragment before*.label))
; syntax: after <label> [ <instructions> ]
; after <label> [ <instructions> ]
;
; multiple after directives => code in *reverse* order
; (if initialization order in a function is A B, corresponding