home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / HELP language 1.4 / Help Files / System files / Stepper < prev   
Encoding:
Text File  |  1992-12-28  |  339 b   |  15 lines  |  [TEXT/Help]
  1. {••• Some code for a non so trivial stepper in Help •••}
  2. {•••          Defines both STEPIN and STEPOUT       •••}
  3.  
  4. (let [(c 0)]
  5.   (define (stepin f e) 
  6.     (=! c (1+ c)) 
  7.     (prin c) (prin " -> ") 
  8.     (prin f) (prin " in ") 
  9.     (print (envar e)) (pause) c))
  10.  
  11. (define (stepout c v) 
  12.   (prin c) 
  13.   (prin " <- ") 
  14.   (printdebug v)(pause))
  15.