home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / packs / skeem / skdebug.icn < prev    next >
Text File  |  2000-07-29  |  812b  |  39 lines
  1. ############################################################################
  2. #
  3. #    Name:    skdebug.icn
  4. #
  5. #    Title:    Scheme in Icon
  6. #
  7. #    Author: Bob Alexander
  8. #
  9. #    Date:    February 19, 1995
  10. #
  11. #    Description: see skeem.icn
  12. #
  13. ############################################################################
  14.  
  15. #
  16. # skeem -- Scheme in Icon
  17. #
  18. # Debugging utility procedures (not needed for "production" version)
  19. #
  20.  
  21. procedure ShowEnv(tag,env,showInitial)
  22.    local frame,pair
  23.    /env := CurrentEnv
  24.    write("+++ Environment ",tag)
  25.    every frame := LLPairs(env) do {
  26.       if /showInitial & /LLRest(frame) then break
  27.       write("  +++ Frame:")
  28.       every pair := !sort(LLFirst(frame)) do {
  29.      write("    ",Print(pair[1]),"\t",Print(pair[2]))
  30.      }
  31.       }
  32.    return
  33. end
  34.  
  35. procedure Show(x[])
  36.    every write("+++ ",Print(!x))
  37.    return
  38. end
  39.