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

432

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