From 6700c041590f68b3b274d1011496233acbae627c Mon Sep 17 00:00:00 2001 From: VaclavT Date: Mon, 15 Mar 2021 23:23:55 +0100 Subject: [PATCH] stdlib get-env added --- stdlib/stdlib.lsp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/stdlib/stdlib.lsp b/stdlib/stdlib.lsp index 660fec3..487b5ed 100644 --- a/stdlib/stdlib.lsp +++ b/stdlib/stdlib.lsp @@ -37,6 +37,9 @@ (defun sleep (time) (system-cmd (+ "sleep " (string time)))) +(defun get-env (var) + (second (system-cmd (+ "echo ${" var "} | tr -d \"\n\"")))) + ; return second element of list (defun second (l) (index l 1))