smbache

`%<<%` <- function(con, x)
{
  UseMethod("%<<%", x)
}

`%<<%.function` <- function(con, x)
{
  if (!identical(x, close))
    stop("Unknown function provided to <<", call. = FALSE)

smbache

#' Placeholder function.
#'
#' @export
as_nonstandard <- function()
{
	stop("This is a placeholder function, and should not be called directly.")
}

#' Declare symbols for nonstandard evalution.
#'

smbache

#' Arm a value with a function which fires when evaluated.
#'
#' @param expr an expression
#' @param fun a function of one argument.
#' 
#' @return an expression which when evaluated returns the result of expr,
#'   after evaluating fun(expr).
arm <- function(expr, fun)
{
	substitute({