diff --git a/literate/context.org b/literate/context.org index 9c10664..c63ea75 100644 --- a/literate/context.org +++ b/literate/context.org @@ -191,13 +191,6 @@ A utility function that expands environment variables (like ~$HOME~ or ~$MEMEX_R (setf result (ppcre:regex-replace (format nil "\\$~a" var-name) result var-val))))) result) path))) - (let ((result path-string)) - (ppcre:do-register-groups (var-name) ("\\$([A-Za-z0-9_]+)" path-string) - (let ((var-val (uiop:getenv var-name))) - (when var-val - (setf result (ppcre:regex-replace (format nil "\\$~a" var-name) result var-val))))) - result) - path-string)) #+end_src ** Global Awareness (context-assemble-global-awareness) diff --git a/src/context.lisp b/src/context.lisp index 3f0012c..5fc3eda 100644 --- a/src/context.lisp +++ b/src/context.lisp @@ -103,13 +103,6 @@ (setf result (ppcre:regex-replace (format nil "\\$~a" var-name) result var-val))))) result) path))) - (let ((result path-string)) - (ppcre:do-register-groups (var-name) ("\\$([A-Za-z0-9_]+)" path-string) - (let ((var-val (uiop:getenv var-name))) - (when var-val - (setf result (ppcre:regex-replace (format nil "\\$~a" var-name) result var-val))))) - result) - path-string)) (defun context-assemble-global-awareness (&optional signal) "Produces a high-level skeletal outline of the current Memory for the LLM."