diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-24 18:56:15 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-24 18:56:15 -0800 |
| commit | 89b17724fe88909c7a256db259abcc82ca1abf40 (patch) | |
| tree | 000838f7c40507d00f33e489eea31cbbce2de6d2 /mu.arc | |
| parent | d69fd246f2a20fe2f9ccd075281072f22b5a8a0e (diff) | |
| download | mu-89b17724fe88909c7a256db259abcc82ca1abf40.tar.gz | |
312
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/mu.arc b/mu.arc index b52f50f3..3200b073 100644 --- a/mu.arc +++ b/mu.arc @@ -838,15 +838,17 @@ (def convert-quotes (instrs) (let deferred (queue) (each instr instrs - (case instr.0 - defer - (let (q qinstrs) instr.1 - (assert (is 'make-br-fn q) "defer: first arg must be [quoted]") - (each qinstr qinstrs - (enq qinstr deferred))))) + (when (acons instr) + (case instr.0 + defer + (let (q qinstrs) instr.1 + (assert (is 'make-br-fn q) "defer: first arg must be [quoted]") + (each qinstr qinstrs + (enq qinstr deferred)))))) (accum yield (each instr instrs - (unless (in instr.0 'defer) ; keep sync'd with case clauses above + (unless (and acons.instr + (in instr.0 'defer)) ; keep sync'd with case clauses above (yield instr))) (each instr (as cons deferred) (yield instr))))) |