hg.stevelosh.com > temperance

--- a/src/wam/compiler.lisp	Mon Apr 18 15:21:41 2016 +0000
+++ b/src/wam/compiler.lisp	Mon Apr 18 15:22:44 2016 +0000
@@ -300,7 +300,6 @@
          ;; flattened away anyway.
          (stack-registers (make-array (length permanent-variables)
                             :initial-contents permanent-variables)))
-    ;; TODO: document this clusterfuck
     (loop :for variable :in reserved-variables :do
           (vector-push-extend variable local-registers))
     (labels
author	Steve Losh <steve@stevelosh.com>
date	Mon, 18 Apr 2016 15:22:44 +0000
parents	7564d7862350
children	5962c575282f
branches/tags	(none)
files	src/wam/compiler.lisp