Timothy Washington twashing

twashing / debug.clj

Created July 13, 2011 23:06 — forked from khinsen/debug.clj

	;; Slightly enhanced version of Alex Osborne's debug-repl (http://gist.github.com/252421)
	;; Typing () quits the debug REPL, making it possible to continue without terminating the
	;; input stream by typing Ctrl-D.

	;; Inspired by George Jahad's version: http://georgejahad.com/clojure/debug-repl.html

	(ns debug
	[:require clojure.main])

	(defmacro local-bindings

twashing / debug.clj

Created July 13, 2011 23:06 — forked from ato/debug.clj

Simpler debug-repl that works with unmodified Clojure

	;; Inspired by George Jahad's version: http://georgejahad.com/clojure/debug-repl.html

	(defmacro local-bindings
	"Produces a map of the names of local bindings to their values."
	[]
	(let [symbols (map key @clojure.lang.Compiler/LOCAL_ENV)]
	(zipmap (map (fn [sym] `(quote ~sym)) symbols) symbols)))

	(declare locals)
	(defn eval-with-locals

twashing / debug.clj

Created February 22, 2011 03:08 — forked from GeorgeJahad/debug.clj

	;; even more enhanced version with that allows ret val override and better prompt

	;; Slightly enhanced version of Alex Osborne's debug-repl (http://gist.github.com/252421)
	;; Typing () quits the debug REPL, making it possible to continue without terminating the
	;; input stream by typing Ctrl-D.

	;; Inspired by George Jahad's version: http://georgejahad.com/clojure/debug-repl.html

	(ns clojure.contrib.debug
	[:require clojure.main])