From d5c8eb048a7a780a5cbddc974a51b32f29e01205 Mon Sep 17 00:00:00 2001
From: sogaiu <983021772@users.noreply.github.com>
Date: Sat, 18 Sep 2021 17:08:56 +0900
Subject: [PATCH] Apply deprecation machinery to file/popen

---
 src/boot/boot.janet | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/boot/boot.janet b/src/boot/boot.janet
index b6029391..e323a91c 100644
--- a/src/boot/boot.janet
+++ b/src/boot/boot.janet
@@ -3664,6 +3664,10 @@
         (put into k (x k))))
     into)
 
+  # Deprecate file/popen
+  (when-let [v (get root-env 'file/popen)]
+    (put v :deprecated true))
+
   # Deprecate thread library
   (loop [[k v] :in (pairs root-env)
          :when (symbol? k)