;;; longjump.mhtml: -*- Meta-HTML -*-  DESCRIPTIVE TEXT.

;;;  Copyright (c) 1996 Brian J. Fox
;;;  Author: Brian J. Fox (bfox@ai.mit.edu) Thu Aug  8 09:40:56 1996.

foo

<with-open-stream s /tmp/foo mode=write-create>
  <set-var foo=1>
  <with-open-stream s1 /tmp/bar mode=write-create>
    <set-var bar=1>
    <set-var i = 0>
    <while <lt i 100>>
      <if <eq i 50>
	  <redirect target.mhtml?<cgi-encode foo bar>>>
      <increment i>
    </while>
  </with-open-stream>
  <set-var foo=8>
</with-open-stream>
