Permalink
Browse files

Specify the level when `uplevel`ing.

  • Loading branch information...
1 parent 94425f0 commit e9130e9b8e5e5d58fdaaecdd5a2525bf00ec587f @arthurschreiber committed Oct 20, 2012
Showing with 9 additions and 9 deletions.
  1. +9 −9 lib/spec/example_group.tcl
@@ -1,35 +1,35 @@
namespace eval Spec {
namespace eval ExampleGroupProcs {
proc describe { args } {
- uplevel [list :describe {*}$args]
+ uplevel 1 [list :describe {*}$args]
}
proc context { args } {
- uplevel [list :describe {*}$args]
+ uplevel 1 [list :describe {*}$args]
}
proc before { args } {
- uplevel [list :before {*}$args]
+ uplevel 1 [list :before {*}$args]
}
proc after { args } {
- uplevel [list :after {*}$args]
+ uplevel 1 [list :after {*}$args]
}
proc it { args } {
- uplevel [list :example {*}$args]
+ uplevel 1 [list :example {*}$args]
}
proc example { args } {
- uplevel [list :example {*}$args]
+ uplevel 1 [list :example {*}$args]
}
proc let { args } {
- uplevel [list :let {*}$args]
+ uplevel 1 [list :let {*}$args]
}
proc let! { args } {
- uplevel [list :let! {*}$args]
+ uplevel 1 [list :let! {*}$args]
}
}
@@ -303,4 +303,4 @@ An error occurred in an after all hook.
}
}
}
-}
+}

0 comments on commit e9130e9

Please sign in to comment.