striplines util

MikeInnes · Feb 27, 2017 · 50fb74f · 50fb74f
2 parents d686efd + 2d5011e
commit 50fb74f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/syntax/sugar.jl b/src/syntax/sugar.jl
@@ -85,6 +85,12 @@ end
 
 immutable SkipFrame end
 
+function striplines(v)
+  postwalk(v) do v
+    isa(value(v), Line) || isa(value(v), Frame) ? v[1] : v
+  end
+end
+
 # Static tuples
 
 # TODO: just use `getindex` and `tuple` to represent these?