Skip to content
Snippets Groups Projects
Commit d73522c8 authored by ram's avatar ram
Browse files

Flushed special-casing of :ENVIRONMENT TNs in DO-LIVE-TNS.

parent 7b67c7d0
No related branches found
No related tags found
No related merge requests found
...@@ -2367,12 +2367,6 @@ ...@@ -2367,12 +2367,6 @@
(block-component (block-component
(ir2-block-block ,n-block))))) (ir2-block-block ,n-block)))))
(,n-bod ,tn-var)) (,n-bod ,tn-var))
;;
;; Do environment-live TNs.
(dolist (,tn-var (ir2-environment-live-tns
(environment-info
(ir2-block-environment ,n-block))))
(,n-bod ,tn-var))
(let ((,ltns (ir2-block-local-tns ,n-block))) (let ((,ltns (ir2-block-local-tns ,n-block)))
;; ;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment