diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-26 15:11:03 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-26 15:11:03 +0000 |
| commit | 6dad3130683652a42a8e73c417333b53102d7943 (patch) | |
| tree | 7ea94fd464988ccbb66ebbdfa34d5006069264da /src/interp/trace.boot | |
| parent | 425777c747c5972163c1743d6d0ad0216eabf066 (diff) | |
| download | open-axiom-6dad3130683652a42a8e73c417333b53102d7943.tar.gz | |
* boot/tokens.boot: freshLine, functionSymbol?, and symbolGlobal?
are now builin.
* boot/ast.boot: Tidy.
* interp/c-util.boot: Likewise.
* interp/br-saturn.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/clam.boot: Likewise.
* interp/trace.boot: Likewise.
* interp/sys-utility.boot: Likewise.
* interp/sys-driver.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/lisp-backend.boot: Likewise.
Diffstat (limited to 'src/interp/trace.boot')
| -rw-r--r-- | src/interp/trace.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/trace.boot b/src/interp/trace.boot index 9053bce1..f62db3c4 100644 --- a/src/interp/trace.boot +++ b/src/interp/trace.boot @@ -546,7 +546,7 @@ traceDomainConstructor(domainConstructor,options) == repeat spadTrace(domain,options) SETQ(_/TRACENAMES,[domainConstructor,:_/TRACENAMES]) innerDomainConstructor := makeSymbol strconc(domainConstructor,'";") - if FBOUNDP innerDomainConstructor then domainConstructor := innerDomainConstructor + if functionSymbol? innerDomainConstructor then domainConstructor := innerDomainConstructor EMBED(domainConstructor, ['LAMBDA, ['_&REST, 'args], ['PROG, ['domain], @@ -566,7 +566,7 @@ untraceDomainConstructor domainConstructor == true untraceAllDomainLocalOps domainConstructor innerDomainConstructor := makeSymbol strconc(domainConstructor,'";") - if FBOUNDP innerDomainConstructor then UNEMBED innerDomainConstructor + if functionSymbol? innerDomainConstructor then UNEMBED innerDomainConstructor else UNEMBED domainConstructor SETQ(_/TRACENAMES,removeSymbol(_/TRACENAMES,domainConstructor)) |