From cee12c325098ec938ba2312d17a437458bab010e Mon Sep 17 00:00:00 2001 From: Phil Hagelberg Date: Thu, 4 Apr 2013 11:48:15 -0700 Subject: [PATCH] That's what we get for relying on a private var. --- project.clj | 2 +- src/leiningen/standalone_repl.clj | 17 +++++------------ 2 files changed, 6 insertions(+), 13 deletions(-) diff --git a/project.clj b/project.clj index 9d14094..e8b2fb3 100644 --- a/project.clj +++ b/project.clj @@ -1,4 +1,4 @@ -(defproject lein-standalone-repl "0.1.4" +(defproject lein-standalone-repl "0.1.5" :description "Backport of a bugfix for trampoline repl." :url "https://github.com/technomancy/lein-standalone-repl" :license {:name "Eclipse Public License" diff --git a/src/leiningen/standalone_repl.clj b/src/leiningen/standalone_repl.clj index a54e408..c1e108a 100644 --- a/src/leiningen/standalone_repl.clj +++ b/src/leiningen/standalone_repl.clj @@ -1,19 +1,12 @@ (ns leiningen.standalone-repl (:require [leiningen.trampoline :as trampoline] [leiningen.repl :as repl] - [leiningen.core.eval :as eval] - [leiningen.core.project :as project] - [leiningen.core.user :as user])) - -(defn- trampoline-repl [project] - (let [profiles (repl/profiles-for project true true)] - (eval/eval-in-project - (project/merge-profiles project profiles) - `(reply.main/launch-standalone ~(repl/options-for-reply project)) - `(require ~@(#'leiningen.repl/init-requires project 'reply.main))))) + [leiningen.run :as run] + [leiningen.core.project :as project])) (defn standalone-repl "Backport of a bugfix for trampoline repl." [project] - (with-redefs [leiningen.repl/trampoline-repl trampoline-repl] - (trampoline/trampoline project "repl"))) \ No newline at end of file + (trampoline/trampoline (project/merge-profiles project + [repl/trampoline-profile]) + "run" "-m" "reply.main/launch-standalone" "nil")) \ No newline at end of file