??ANSWER TO EXERCISE 79

Global scope_count;
[ PrintIt obj; print_ret ++scope_count, ": ", (a) obj, " (", obj, ")"; ];
[ ScopeSub; LoopOverScope(PrintIt);
  if (scope_count==0) "Nothing is in scope.";
];
Verb meta "scope" *                              -> Scope;

Back to the exercise in section 28
Mechanically translated to HTML from third edition as revised 16 May 1997. Copyright © Graham Nelson 1993, 1994, 1995, 1996, 1997: all rights reserved.