Implementing the F# pipe forward (|>) operator using Sweet.js

output.js

var add = function (x, y) {
    return x + y;
};
var log = console.log;
var add1 = add.length <= 1 ? add(1) : add.bind(null, 1);
var three = add1.length <= 1 ? add1(2) : add1.bind(null, 2);
var four = add.length <= [2].length + 1 ? add(2, 2) : add.bind(null, 2, 2);
log(three);
log(four);

pipe-forward.sjs

macro (|>) {
	case infix { $val | _ $fn($args (,) ...) } => {
		return #{
			($fn.length <= [$args (,) ...].length + 1 ? $fn($args (,) ..., $val) : $fn.bind(null, $args (,) ..., $val))
		}
	}
	
	case infix { $val | _ $fn } => {
		return #{
			($fn.length <= 1 ? $fn($val) : $fn.bind(null, $val))
		}
	}
}

usage.sjs

var add = function (x, y) {
	return x + y;
};

var log = console.log;

var add1 = 1 |> add

var three = 2 |> add1

var four = 2 |> add(2)

log(three);

log(four);