jmbarbone

global_calling_handlers <- local({
  . <- environment()
  class(.) <- c("cnd:global_calling_handlers", "environment")
  .handlers <- NULL
  handlers <- NULL
  
  add <- function(...) {
    "Adds calling handlers

      If handlers with the same name already exist, they are replaced.

jmbarbone

enumerate <- function(x, i = "i", v = "v") {
  lapply(
    seq_along(x),
    function(iteration) {
      structure(
        list(iteration, x[[iteration]]),
        class = c("enumeration", "list"),
        names = c(i, v)
      )

jmbarbone

arg <- function(sym, type, default) {
  sym <- substitute(sym)
  spec <- structure(
    list(
      sym = as.character(sym),
      type = type
    ),
    class = "arg"
  )

jmbarbone

.fibs <- new.env()

.fib <- function(n) {
  name <- as.character(n)
  get0(name, envir = .fibs) %||% assign(name, fibonocci(n), envir = .fibs)
}

fibonocci <- function(n = 0) {
 n &lt;- floor(n)