work to lazify /⌿ operator

Author: phantomics

spec.lisp

@@ -1335,7 +1335,7 @@
   (/ (has :title "Reduce")
      (lateral (lambda (operand)
                 (values `(operate-reducing ,operand index-origin t)
-                         '(:axis))
+                          '(:axis))
                 ;; (values `(op-compose 'vacomp-reduce :left (sub-lex ,operand)
                 ;;                                     :index-origin index-origin)
                 ;;         '(:axis))
@@ -1393,9 +1393,8 @@
             (is "+⍀[2]3 4⍴⍳12" #2A((1 3 6 10) (5 11 18 26) (9 19 30 42)))))
   (\¨ (has :title "Each")
       (lateral (lambda (operand)
-                 ;; (april (with (:space array-lib-space) (:unrendere)) "↓disp 1 0 1 /sam⊢{⊂'---'}¨ vex")
-                 ;; `(operate-each ,operand) ; "bla←{ ⍺[0] } ⋄ {⎕io←0 ⋄ {⍵∘bla¨⊂0 1} ⎕←⍵} 3 4"
-                 `(op-compose 'vacomp-each :left (sub-lex ,operand))
+                 `(operate-each ,operand) ; "bla←{ ⍺[0] } ⋄ {⎕io←0 ⋄ {⍵∘bla¨⊂0 1} ⎕←⍵} 3 4"
+                 ;; `(op-compose 'vacomp-each :left (sub-lex ,operand))
                  ))
       (tests (is "⍳¨1 2 3" #(#(1) #(1 2) #(1 2 3)))
              (is "⊃¨↓⍳5" 1)