diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-09 17:39:54 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-09 17:39:54 +0000 |
| commit | 20a8ad75b7e37bb087342e80e3f1c18eb74e4af8 (patch) | |
| tree | 2796d582814e528527310f88b9cc9301cee42ebb /src/interp/br-saturn.boot | |
| parent | 2e3759ab9fa0e0962408ddf39f88f892f0fed1de (diff) | |
| download | open-axiom-20a8ad75b7e37bb087342e80e3f1c18eb74e4af8.tar.gz | |
* interp/as.boot: Remove Old Boot semantics.
* interp/br-con.boot: Likewise.
* interp/br-data.boot: Likewise.
* interp/br-op1.boot: Likewise.
* interp/br-op2.boot: Likewise.
* interp/br-saturn.boot: Likewise.
* interp/compiler.boot: Likewise.
* interp/define.boot: Likewise.
* interp/fortcall.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/htsetvar.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/nrunopt.boot: Likewise.
Diffstat (limited to 'src/interp/br-saturn.boot')
| -rw-r--r-- | src/interp/br-saturn.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index 1de6b47d..27866a69 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -754,7 +754,7 @@ getSaturnExampleList() == file := STRCONC(systemRootDirectory(), "/doc/axug/examples.lsp") not PROBE_-FILE file => nil fp := MAKE_-INSTREAM file - lst := READ fp + lst := VMREAD fp SHUT fp lst @@ -794,7 +794,7 @@ dbPresentCons(htPage,kind,:exclusions) == then htSay '"{\em Names}" else htMakePage [['bcLispLinks,['"Names",'"",'dbShowCons,'names]]] htSay '"}{" - if one? or member('parameters,exclusions) or not "or"/[CDAR x for x in cAlist] + if one? or member('parameters,exclusions) or not ("or"/[CDAR x for x in cAlist]) then htSay '"{\em Parameters}" else htMakePage [['bcLispLinks,['"Parameters",'"",'dbShowCons,'parameters]]] htSay '"}{" @@ -839,7 +839,7 @@ dbPresentConsSaturn(htPage,kind,exclusions) == if one? or member('names,exclusions) then htSayCold '"\&Names" else htMakePage [['bcLispLinks,['"\&Names",'"",'dbShowCons,'names]]] - if one? or member('parameters,exclusions) or not "or"/[CDAR x for x in cAlist] + if one? or member('parameters,exclusions) or not ("or"/[CDAR x for x in cAlist]) then htSayCold '"\&Parameters" else htMakePage [['bcLispLinks,['"\&Parameters",'"",'dbShowCons,'parameters]]] htSaySaturn '"\hrule" @@ -1313,7 +1313,7 @@ displayDomainOp(htPage,which,origin,op,sig,predicate, htSaySaturn '"{\em Conditions:}" htSayStandard('"\newline\tab{2}{\em Conditions:}") firstTime := true - for p in displayBreakIntoAnds SUBST($conform,"$",pred) repeat + for p in displayBreakIntoAnds substitute($conform,"$",pred) repeat if not firstTime then htSaySaturn '"\\" htSayIndentRel(15,count > 1) firstTime := false |