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 >
Wrap
Text File
|
2000-07-29
|
812b
|
39 lines
############################################################################
#
# Name: skdebug.icn
#
# Title: Scheme in Icon
#
# Author: Bob Alexander
#
# Date: February 19, 1995
#
# Description: see skeem.icn
#
############################################################################
#
# skeem -- Scheme in Icon
#
# Debugging utility procedures (not needed for "production" version)
#
procedure ShowEnv(tag,env,showInitial)
local frame,pair
/env := CurrentEnv
write("+++ Environment ",tag)
every frame := LLPairs(env) do {
if /showInitial & /LLRest(frame) then break
write(" +++ Frame:")
every pair := !sort(LLFirst(frame)) do {
write(" ",Print(pair[1]),"\t",Print(pair[2]))
}
}
return
end
procedure Show(x[])
every write("+++ ",Print(!x))
return
end