about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2014-11-03 22:38:28 -0800
committerKartik K. Agaram <vc@akkartik.com>2014-11-03 22:38:28 -0800
commit39cc7eb6587cac5fb0c071b1136502eef90acb0d (patch)
tree60c03b8428df2043b4f382e0e2e5aa693cf8ad84
parent83d275f9a8c5e37bdff7f0b7c2f92c9d04fa061d (diff)
downloadmu-39cc7eb6587cac5fb0c071b1136502eef90acb0d.tar.gz
216
-rw-r--r--mu.arc10
1 files changed, 5 insertions, 5 deletions
diff --git a/mu.arc b/mu.arc
index 1db0ef09..fa70fdf2 100644
--- a/mu.arc
+++ b/mu.arc
@@ -682,11 +682,11 @@
     instrs))
 
 (def maybe-add (arg offset idx)
-  (unless (or (in ty.arg 'literal 'offset 'fn)
-              (offset v.arg)
-              (~isa v.arg 'sym)
-              (in v.arg 'nil 'default-scope)
-              (pos 'global metadata.arg))
+  (when (and (~in ty.arg 'literal 'offset 'fn)
+             (~offset v.arg)
+             (isa v.arg 'sym)
+             (~in v.arg 'nil 'default-scope)
+             (~pos 'global metadata.arg))
     (= (offset v.arg) idx)))
 
 ;; literate tangling system for reordering code