noprompt

(ns conform-case
  (:require [clojure.spec :as spec]))


(defn build-clause-form
  {:private true}
  [expression-form clause else-form]
  (let [[spec binding-form & body] clause]
    `(let [conform-value# (spec/conform ~spec ~expression-form)]
       (if (= conform-value# ::spec/invalid)

noprompt

(defun intero-scratch-send-paragraph ()
  (interactive)
  (let* ((source-code-start (save-excursion
                              (backward-paragraph)
                              (point)))

         (source-code-end (save-excursion
                            (forward-paragraph)
                            (point)))

noprompt

(ns strum.core
  (:refer-clojure :exclude [defn])
  (:require
   [clojure.spec :as spec]
   [clojure.spec.test :as spec.test]))

;; ---------------------------------------------------------------------
;; Prelude

;; HACK: Currently, as of Clojure 1.9.0-alpha14, there is a bug with

noprompt

(ns machines.cek
  (:require
   [clojure.core.match :as match]
   [clojure.spec :as spec]))

;; e ∈ Exp ::= x | (e e) | (λ (x) e)
;; x ∈ Var
;; ς ∈ Σ = Exp × Env × Kont
;; v ∈ Val ::= (λ (x) e)
;; ρ ∈ Env = Var →_fin Val × Env

noprompt

(ns state-box)

(defprotocol IGetState
  (-get-state [state key]))

(defprotocol IPutState
  (-put-state [state key value]))

(deftype ImmutableBox [get-state put-state state]
  IGetState

noprompt

use std::io::BufRead;
use std::io::BufReader;
use std::io::ErrorKind;
use std::io::Write;
use std::net::TcpListener;
use std::net::TcpStream;
use std::thread;
use std::time::Duration;

fn handle_tcp_stream(mut tcp_stream: TcpStream) {

noprompt

(when (not (boundp 'inf-ruby-implementations))
  (setq inf-ruby-implementations nil))

(defun ~/paths-to-root (file-name)
  (let* ((path-parts (s-split "/" (file-name-directory file-name) t))
	 (build-path (lambda (path-parts)
		       (concat "/" (s-join "/" path-parts))))
	 (paths (reduce (lambda (state _)
			  (let* ((old-path-parts (cdr state))
				 (new-path-parts (-butlast old-path-parts))

noprompt

# @return [Array<String>]
def gem_paths
  Gem.path.flat_map { |path| Dir.glob("#{path}/gems/*") }
end

# @param [String] gem_name
# @return [Boolean]
# @raise [LoadError]
def require_gem(gem_name)
  if defined?(::Bundler)

noprompt

module Walk

  refine Array do
    def walk(inner_f, outer_f)
      outer_f.(self.map(&inner_f))
    end
  end

  refine Hash do
    def walk(inner_f, outer_f)

noprompt

(ns saturn)

;; ---------------------------------------------------------------------
;; Signature parsing

(defprotocol IParse
  (-parse [x]))


(extend-protocol IParse