do!*.ss

(define-syntax do!*
  (syntax-rules ()
    ((_ ((var init step)
         ...)
        (pred e ...)
        body ...)
     (let ((tag #f))
       (let* ((var init) ...)
	 (call/cc
	  (lambda (cc)
	    (set! tag cc)))
	 (call/cc
	  (lambda (return)
	    (and pred (return (begin e ...)))
	    body ...
	    (set! var step)
	    ...
	    (tag '()))))))))

multiple-value-bind.ss

(define-syntax multiple-value-bind
  (syntax-rules ()
    ((_ (var ...) values-form form ...)
     (call-with-values (lambda () values-form)
       (lambda (var ...) form ...)))))