Inline `Object.create`

create.macro.sjs

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);
			}
 
			function Object() {}
 
			Object.prototype = proto;
 
			return new Object();
		}($proto, Object))
	}
	rule infix { Object. | ($proto:expr, $properties:expr) } => {
		(function (proto, properties, 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, properties);
			}
			
			function Object() {}
			
			Object.prototype = proto;
			
			return ObjectConstructor.defineProperties(new Object(), properties);
		}($proto, $properties, Object))
	}
	rule { $rest ... } => { create $rest ... }
}
 
export create;