Skip to content
Browse files

cleaning up indentation

  • Loading branch information...
1 parent ab3f478 commit db46b8735f511d04008b38e5b852c8222ba92b1a @silvamo silvamo committed May 1, 2012
Showing with 8 additions and 24 deletions.
  1. +8 −24 modules/incanter-core/src/incanter/internal.clj
View
32 modules/incanter-core/src/incanter/internal.clj
@@ -87,51 +87,35 @@
(and (is-matrix ~A) (is-matrix ~B))
(let [~mA ~A
~mB ~B]
- (.assign (hint "Matrix" (.copy ~mA))
- ~mB
- ~df))
+ (.assign (hint "Matrix" (.copy ~mA)) ~mB ~df))
(and (is-matrix ~A) (number? ~B))
(let [~mA ~A
~mB (make-matrix ~B (.rows ~mA) (.columns ~mA))]
- (.assign (hint "Matrix" (.copy ~mA))
- ~mB
- ~df))
+ (.assign (hint "Matrix" (.copy ~mA)) ~mB ~df))
(and (number? ~A) (is-matrix ~B))
(let [~mB ~B
~mA (make-matrix ~A (.rows ~mB) (.columns ~mB))]
- (.assign ~mA
- ~mB
- ~df))
+ (.assign ~mA ~mB ~df))
(and (coll? ~A) (is-matrix ~B))
(let [~mB ~B
~mA (make-matrix ~A (.columns ~mB))]
- (.assign ~mA
- ~mB
- ~df))
+ (.assign ~mA ~mB ~df))
(and (is-matrix ~A) (coll? ~B))
(let [~mA ~A
~mB (make-matrix ~B)]
- (.assign (hint "Matrix" (.copy ~mA))
- ~mB
- ~df))
+ (.assign (hint "Matrix" (.copy ~mA)) ~mB ~df))
(and (coll? ~A) (coll? ~B) (coll? (first ~A)))
(let [~mA (make-matrix ~A)
~mB (make-matrix ~B)]
- (.assign ~mA
- ~mB
- ~df))
+ (.assign ~mA~mB ~df))
(and (coll? ~A) (number? ~B) (coll? (first ~A)))
(let [~mA (make-matrix ~A)
~mB (make-matrix ~B)]
- (.assign ~mA
- ~mB
- ~df))
+ (.assign ~mA ~mB ~df))
(and (number? ~A) (coll? ~B) (coll? (first ~B)))
(let [~mA (make-matrix ~A (.rows ~B) (.columns ~B))
~mB (make-matrix ~B)]
- (.assign ~mA
- ~mB
- ~df))
+ (.assign ~mA ~mB ~df))
(and (coll? ~A) (coll? ~B))
(map ~op ~A ~B)
(and (number? ~A) (coll? ~B))

0 comments on commit db46b87

Please sign in to comment.
Something went wrong with that request. Please try again.