where is the TCL "macro" command ?

Hi, the following code is ugly:
   proc block {args} {
     set code [lindex $args end]
     set args [lrange $args 0 end-1]
     foreach {var val} $args {
       uplevel [list push $var $val]
     }
     uplevel $code
     foreach {var val} $args {
       uplevel [list pop $var]
     }
   }
I want to have
   macro block {args} {
     local code var val
     set code [lindex $args end]
     set args [lrange $args 0 end-1]
     foreach {var val} $args {
       push $var $val
     }
     eval $code
     foreach {var val} $args {
       pop $var
     }
   }
the "macro" command evaluate the code IN the Frame of the calling "proc"
arguments and "local" declared variables are local, all other variables
are always in the frame of the calling "proc"
mfg