From 72e9b6ceee2160be1f48700ad81dbc2ea2880999 Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Sat, 25 Jun 2022 21:21:27 +0200 Subject: [PATCH] process update --- process | 2 +- src/babashka/impl/nrepl_server.clj | 20 ++++++++++---------- 2 files changed, 11 insertions(+), 11 deletions(-) diff --git a/process b/process index d7331aa5..3988cd00 160000 --- a/process +++ b/process @@ -1 +1 @@ -Subproject commit d7331aa5522c44bcd5be74abacf11dbf3903d764 +Subproject commit 3988cd008e22d836f5cd400c7baf264aafa376da diff --git a/src/babashka/impl/nrepl_server.clj b/src/babashka/impl/nrepl_server.clj index f20e239b..cb90065a 100644 --- a/src/babashka/impl/nrepl_server.clj +++ b/src/babashka/impl/nrepl_server.clj @@ -1,16 +1,16 @@ (ns babashka.impl.nrepl-server {:no-doc true} (:require [babashka.impl.common :as common] - [babashka.nrepl.server :refer [start-server! stop-server!]] - [sci.core :refer [create-ns new-var copy-var]])) + [babashka.nrepl.server :as server] + [sci.core :as sci])) + +(defn start-server! + ([] + (server/start-server! @common/ctx)) + ([opts] + (server/start-server! @common/ctx opts))) (def nrepl-server-namespace (let [ns-sci (create-ns 'babashka.nrepl.server)] - {'start-server! (new-var 'start-server! - (fn - ([] - (start-server! @common/ctx)) - ([opts] - (start-server! @common/ctx opts))) - {:ns ns-sci}) - 'stop-server! (copy-var stop-server! ns-sci)})) \ No newline at end of file + {'start-server! (sci/copy-var start-server! ns-sci) + 'stop-server! (sci/copy-var server/stop-server! ns-sci)}))