375
63%

Ran 13 Mar 2015 08:51PM UTC

Jobs 1

Files 2

Run time 19s

Badge

Embed ▾

pending completion

Build # 375

Build Type

push

travis-ci

Committed by

abo-abo

Commit Message

Improve "xf" for Clojure

* le-clojure.el (lispy-flatten--clojure-loaded): New defvar.
(lispy-flatten--clojure-load): New defun.
(lispy-flatten--clojure): Update.

The code now can distinguish macros and use `macroexpand' for them.
Otherwise, some custom Clojure code will be used to flatten.

"xf" should work on this:

    (filter odd? [1 2 3 4 5])

After "xfM" you get:

    (let [pred odd? coll [1 2 3 4 5]
          ]
      (lazy-seq (when-let [s (seq coll)
                           ]
                  (if (chunked-seq? s)
                    (let [c (chunk-first s)
                          size (count c)
                          b (chunk-buffer size)
                          ]
                      (dotimes [i size]
                        (when (pred (.nth c i))
                          (chunk-append b (.nth c i))))
                      (chunk-cons (chunk b)
                                  (filter pred (chunk-rest s))))
                    (let [f (first s)
                          r (rest s)
                          ]
                      (if (pred f)
                        (cons f (filter pred r))
                        (filter pred r)))))))

Re #54.

Run Details

1631 of 3427 relevant lines covered (47.59%)

23.37 hits per line

Jobs

ID	Job ID	Ran	Files	Coverage
1	375.1 (EMACS=emacs24)	13 Mar 2015 08:51PM UTC	0	47.59	Travis Job 375.1

Source Files on build 375

Detailed source file information is not available for this build.

abo-abo / lispy / 375
63%

README BADGES
x

Markdown

Textile

RDoc

HTML

Rst

Jobs

Source Files on build 375

abo-abo / lispy / 375 63%

README BADGES x

Markdown

Textile

RDoc

HTML

Rst

Jobs

Source Files on build 375

abo-abo / lispy / 375
63%

README BADGES
x