       # log "adding types", (map _symbol, params), paramTypes
       ctx.addTypes (map _symbol, params), paramTypes
 
-      log "compiling wheres", pairs wheres
+      #log "compiling wheres", pairs wheres
       compiledWheres = definitionList ctx, pairs wheres
 
       # log "types added"
-      log "compiling", body
+      #log "compiling", body
       compiledBody = termCompile ctx, body
       # log "compiled", body.tea
       ctx.closeScope()


  paramNames = ctx.arity operator.symbol
  if not paramNames
    log "deferring in known call #{operator.symbol}"
    ctx.setDefer operator.symbol
    return 'deferred'
  positionalParams = filter ((param) -> not (lookupInMap labeledArgs, param)), paramNames

#   #{compileDefinitionsInModule source}
#   exports"""

exports.library = library

exports.walk = walk
exports.isForm = isForm


exports.join = join
exports.concatMap = concatMap
exports.concat = concat
exports.id = id
exports.map = map
exports.allMap = allMap
exports.all = all
exports.filter = filter
exports.partition = partition
exports._notEmpty = _notEmpty
exports._is = _is
exports.__ = __