anchor.diff:          ;; of the continue binding, because a `continue` inside of a continue continuation should
           ;; restart the same continuation, not some other continuation.
           break-k-decl
  -        (make-named-continuation continue-k (statement-block-statements (while-body elm)))
  +        (make-labelled-continuation continue-k (statement-block-statements (while-body elm)))
           (make-resume-statement :target (make-identifier :name continue-k)))
          t))))
   
  
positive.code:        nil))))
        
  
  (defun make-named-continuation (name statement-tail)
    "Constructs a continuation from STATEMENT-TAIL and returns a var-decl-statement
     that initializes a variable named NAME to the new continuation.  Note that named
     continuations accept no arguments."
  
negative.code: (defmethod tx-cps ((elm switch) statement-tail)
    (with-added-environment
      (let* ((switch-k-name (genvar "switchK"))
             (switch-k-decl (make-labelled-continuation switch-k-name statement-tail))
             (*nearest-break* switch-k-name)
             (terminated-clauses (compute-terminated-clauses (switch-clauses elm))))
        (when-let (label (switch-label elm))
  