diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 16:34:01 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 16:34:01 +0000 |
| commit | fe4b74b0a56bc60835a7f4e7f6344f7ceea0b0b6 (patch) | |
| tree | e04fba9d297f0f414733a2b3089380d715c0e8bf /src/interp/br-op1.boot | |
| parent | b248654cba0d6c5ae213882837140358f92bab1c (diff) | |
| download | open-axiom-fe4b74b0a56bc60835a7f4e7f6344f7ceea0b0b6.tar.gz | |
* interp/bc-solve.boot: Move cleanup.
* interp/br-con.boot: Likewise.
* interp/br-op1.boot: Likewise.
* interp/br-saturn.boot: Likewise.
* interp/br-search.boot: Likewise.
* interp/br-util.boot: Likewise.
* interp/c-util.boot: Likewise.
* interp/cattable.boot: Likewise.
* interp/cparse.boot: Likewise.
* interp/cstream.boot: Likewise.
* interp/fortcall.boot: Likewise.
* interp/g-timer.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/htcheck.boot: Likewise.
* interp/htsetvar.boot: Likewise.
* interp/i-map.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/i-toplev.boot: Likewise.
* interp/i-util.boot: Likewise.
* interp/incl.boot: Likewise.
* interp/int-top.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/intfile.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/macex.boot: Likewise.
* interp/msgdb.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/nrunfast.boot: Likewise.
* interp/nrungo.boot: Likewise.
* interp/pathname.boot: Likewise.
* interp/profile.boot: Likewise.
* interp/pspad1.boot: Likewise.
* interp/ptrees.boot: Likewise.
* interp/scan.boot: Likewise.
* interp/sys-os.boot: Likewise.
* interp/sys-utility.boot: Likewise.
* interp/wi1.boot: Likewise.
Diffstat (limited to 'src/interp/br-op1.boot')
| -rw-r--r-- | src/interp/br-op1.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index 6d48665c..c3737af7 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -162,7 +162,7 @@ dbShowOp1(htPage,opAlist,which,key) == htpSetProperty(page,'data,data) htpSetProperty(page,'branch,branch) -- the only place where specialMessage property is set seems to be commented. out - if u := htpProperty(page,'specialMessage) then APPLY(first u,rest u) + if u := htpProperty(page,'specialMessage) then apply(first u,rest u) htSayStandard('"\beginscroll ") FUNCALL(fn,page,opAlist,which,data) --apply branch function dbOpsExposureMessage() @@ -218,7 +218,7 @@ conform2StringList(form,opFn,argFn,exception) == exception := exception or '"%%%nothing%%%" [op1,:args] := form op := IFCAR HGET($lowerCaseConTb,op1) or op1 - null args => APPLY(opFn,[op]) + null args => apply(opFn,[op]) special := op in '(Union Record Mapping) cosig := special => ['T for x in args] @@ -236,7 +236,7 @@ conform2StringList(form,opFn,argFn,exception) == x = exception => dbOpsForm exception pred => string? x => [x] - u := APPLY(argFn,[x]) + u := apply(argFn,[x]) atom u and [u] or u typ := sublisFormal(args,atype) if x is ['QUOTE,a] then x := a @@ -248,7 +248,7 @@ conform2StringList(form,opFn,argFn,exception) == op = 'Mapping => dbMapping2StringList sargl head := special => [op] - APPLY(opFn,[form]) + apply(opFn,[form]) [:head,'"(",:first sargl,:"append"/[[",",:y] for y in rest sargl],'")"] @@ -305,7 +305,7 @@ dbConformGen1(form,opButton?) == originalOp=op => form [op, :args] args => conform2StringList(form, opFunction,FUNCTION dbConformGen,nil) - APPLY(opFunction,[form]) + apply(opFunction,[form]) unAbbreviateIfNecessary op == IFCAR HGET($lowerCaseConTb, op) or op |