diff options
author | dos-reis <gdr@axiomatics.org> | 2008-11-03 19:15:35 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-11-03 19:15:35 +0000 |
commit | 431bfaa2ee046f519715d1aa51b74f05eba74f87 (patch) | |
tree | c1ef303d3f3d5e2ceb1f1c619575128eda638bc0 /src/interp/wi1.boot | |
parent | a12a4527c1d48988f48b4656c3a46ab91ab4e5e2 (diff) | |
download | open-axiom-431bfaa2ee046f519715d1aa51b74f05eba74f87.tar.gz |
* interp/br-data.boot: Remove uses of BOUNDP.
* interp/br-op1.boot: Likewise.
* interp/c-doc.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/category.boot: Likewise.
* interp/g-cndata.boot: Likewise.
* interp/i-util.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp/wi1.boot')
-rw-r--r-- | src/interp/wi1.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index f711677d..7f11de54 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -42,6 +42,7 @@ spad2AsTranslatorAutoloadOnceTrigger() == nil --====================================================================== -- Temporary definitions---for tracing and debugging --====================================================================== +$convertingSpadFile := false tr fn == $convertingSpadFile : local := true $options: local := nil @@ -144,8 +145,7 @@ compDefineLisplib(df,m,e,prefix,fal,fn) == --will eventually become the "constructorCategory" property in lisplib --set in compDefineCategory if category, otherwise in finalizeLisplib libName := getConstructorAbbreviation op - BOUNDP '$compileDocumentation and $compileDocumentation => - compileDocumentation libName + $compileDocumentation => compileDocumentation libName sayMSG ['" initializing ",$spadLibFT,:bright libName, '"for",:bright op] initializeLisplib libName @@ -668,7 +668,7 @@ canReturn(expr,level,exitCount,ValueFlag) == --SPAD: exit and friends for v in rest expr] op="IF" => expr is [.,a,b,c] - if not canReturn(a,0,0,true) and not (BOUNDP '$convert2NewCompiler and $convert2NewCompiler) then + if not canReturn(a,0,0,true) and not $convert2NewCompiler then SAY "IF statement can not cause consequents to be executed" pp expr canReturn(a,level,exitCount,nil) or canReturn(b,level,exitCount,ValueFlag) @@ -1143,7 +1143,7 @@ compDefineCategory1(df,m,e,prefix,fal) == nil [d,m,e]:= compDefineCategory2(form,sig,sc,body,m,e,prefix,fal) --+ next two lines --- if BOUNDP '$convertingSpadFile and $convertingSpadFile then nil +-- if $convertingSpadFile then nil -- else if categoryCapsule and not $bootStrapMode then [.,.,e] := @@ -1238,7 +1238,7 @@ compDefineCategory2(form,signature,specialCases,body,m,e, -- 6. put modemaps into InteractiveModemapFrame $domainShell := - BOUNDP '$convertingSpadFile and $convertingSpadFile => nil + $convertingSpadFile => nil eval [op',:MAPCAR('MKQ,sargl)] $lisplibCategory:= formalBody ---- if $LISPLIB then |