kl0tl

macro inline_reduceRight {
  rule { ($list:expr, function ($accumulator:ident, $value:ident, $index:ident, $ref:ident) {
    $return:expr
  }, $context:expr) } => {
    (function ($ref) {
      var $accumulator = $ref.pop();

      for (var $index = $ref.length - 1; $index > -1; $index -= 1) {
        var $value = $ref[$index];

kl0tl

macro inline_reduce {
  rule { ($list:expr, function ($accumulator:ident, $value:ident, $index:ident, $ref:ident) {
    $return:expr
  }, $context:expr) } => {
    (function ($ref) {
      var $accumulator = $ref.shift(), length = $ref.length;

      for (var $index = 0; $index < length; $index += 1) {
        var $value = $ref[$index];

kl0tl

macro inline_every {
  rule { ($list:expr, function ($value:ident, $index:ident, $ref:ident) {
    $return:expr
  }, $context:expr) } => {
    (function ($ref) {
      var length = $ref.length;

      for (var $index = 0; $index < length; $index += 1) {
        var $value = $ref[$index];

kl0tl

macro inline_some {
  rule { ($list:expr, function ($value:ident, $index:ident, $ref:ident) {
    $return:expr
  }, $context:expr) } => {
    (function ($ref) {
      var length = $ref.length;

      for (var $index = 0; $index < length; $index += 1) {
        var $value = $ref[$index];

kl0tl

macro inline_filter {
  rule { ($list:expr, function ($value:ident, $index:ident, $ref:ident) {
    $return:expr
  }, $context:expr) } => {
    (function ($ref) {
      var length = $ref.length, res = [];

      for (var $index = 0; $index < length; $index += 1) {
        var $value = $ref[$index];

kl0tl

/*

```
defn foo.method() => expression
defn bar.method() {}
```

*/

macro function_parameters {

kl0tl

/*

```
foo
  ..method()
  ..property = value
  ..method()
```

*/

kl0tl

/*

```
var foo = {};

get foo.computed() {
  ...
}

set foo.computed() {

kl0tl

let create = macro {
	rule { Object. | (null) } => {  Object.create(null); }  
	rule infix { Object. | ($proto:expr) } => {
		(function (proto, ObjectConstructor) {
			if (typeof proto !== 'object' && typeof proto !== 'function') {
				throw new TypeError('Object prototype may only be an Object or null:' + proto);
			}
			
			if (proto === null) {
				return ObjectConstructor.create(null);

kl0tl

let keys = macro {
	rule infix { Object. | () } => { Object.keys() }
	rule infix { Object. | ($object:expr) } => {
		(function (object) {
			if (typeof obj !== 'object' && (typeof obj !== 'function' || obj === null)) {
			  throw new TypeError('Object.keys called on non-object');
			}
		
			var keys = [], proto = object.__proto__;