View · Index

Class Safety

#
# Create a safety class
#
Class Safety
Safety method init {} {
  my set count 0
  next
}
Safety method push {thing} {
  my incr count
  next
}
  
Safety method pop {} {
  if {[my set count] == 0} then { error "Stack empty!" }
  my incr count -1
  next
}