sci: preserve tag in let (#216)

project.clj

@@ -13,6 +13,7 @@
                  [org.clojure/tools.reader "1.3.2"]
                  [borkdude/edamame "0.0.10-alpha.2"]
                  [borkdude/graal.locking "0.0.2"]
+                 [borkdude/sci.impl.reflector "0.0.1"]
                  [org.clojure/core.async "0.4.500"]
                  [org.clojure/tools.cli "0.4.2"]
                  [org.clojure/data.csv "0.1.4"]

resources/BABASHKA_RELEASED_VERSION

@@ -1 +1 @@
-0.0.59
+0.0.60

resources/BABASHKA_VERSION

@@ -1 +1 @@
-0.0.60
+0.0.61-SNAPSHOT

sci

@@ -1 +1 @@
-Subproject commit 7fcbf1b20375ebdf38da8f2885ba652dc6c63c04
+Subproject commit 74e58536995367d358225f5a71ebb12928dc3b96

src/babashka/impl/classes.clj

@@ -89,15 +89,11 @@
               java.util.zip.InflaterInputStream
               java.util.zip.DeflaterInputStream
               java.util.zip.GZIPInputStream
-              java.util.zip.GZIPOutputStream
-              ]
+              java.util.zip.GZIPOutputStream]
         :constructors [clojure.lang.Delay
                        clojure.lang.MapEntry
                        clojure.lang.LineNumberingPushbackReader]
         :methods [borkdude.graal.LockFix ;; support for locking
-                  sun.net.www.http.PosterOutputStream ;; support for clj-http-lite
-                  sun.net.www.protocol.https.HttpsURLConnectionImpl ;; support for clj-http-lite
-                  sun.net.www.protocol.http.HttpURLConnection$HttpInputStream ;; support for clj-http-lite
                   ]
         :fields [clojure.lang.PersistentQueue]
         :instance-checks [clojure.lang.ExceptionInfo

test/babashka/http_connection_test.clj

@@ -10,7 +10,7 @@
 (deftest open-connection-test
   (is (= "\"1\"" (str/trim (bb "-e" "
 (require '[cheshire.core :as json])
-(let [conn (.openConnection (java.net.URL. \"https://postman-echo.com/get?foo=1\"))]
+(let [conn ^java.net.HttpURLConnection (.openConnection (java.net.URL. \"https://postman-echo.com/get?foo=1\"))]
   (.setConnectTimeout conn 1000)
   (.setRequestProperty conn \"Content-Type\" \"application/json\") ;; nonsensical, but to test if this method exists
   (.connect conn)