diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-10-15 06:25:45 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-10-15 06:25:45 +0000 |
| commit | 438fc2b3dca328c5e9a10e75ccb6ec25d8cf782e (patch) | |
| tree | 12838da1f18dd216c6a6048c11dd8796ac17c03a /src/interp/c-util.boot.pamphlet | |
| parent | ed60f495f0dfe5e3d66362bba84bcbae1cd1d0b1 (diff) | |
| download | open-axiom-438fc2b3dca328c5e9a10e75ccb6ec25d8cf782e.tar.gz | |
* Makefile.pamphlet (<<server.clisp>>): Remove.
(server.$(FASLEXT)): New rule.
* as.boot.pamphlet (asytran): Use VMREAD.
* c-util.boot.pamphlet (intersectionContour): Use assoc.
* g-error.boot.pamphlet (argumentDataError): Use read_-line.
* g-opt.boot.pamphlet: Use assoc.
* ht-util.boot.pamphlet: Likewise.
* htsertvar.boot.pamphlet: Likewise.
* server.boot.pamphlet: User read_-line.
Diffstat (limited to 'src/interp/c-util.boot.pamphlet')
| -rw-r--r-- | src/interp/c-util.boot.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/c-util.boot.pamphlet b/src/interp/c-util.boot.pamphlet index 63808037..6bc3f726 100644 --- a/src/interp/c-util.boot.pamphlet +++ b/src/interp/c-util.boot.pamphlet @@ -196,7 +196,7 @@ intersectionContour(c,c') == [[x,:mp] for x in varlist | (mp:= modeCompare(LASSOC(x,c),LASSOC(x,c')))] compare(pair is [prop,:val],p') == --1. if the property-value pair are identical, accept it immediately - pair=(pair':= ASSOC(prop,p')) => pair + pair=(pair':= assoc(prop,p')) => pair --2. if property="value" and modes are unifiable, give intersection -- property="value" but value=genSomeVariable)() (val':= KDR pair') and prop="value" and |