diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-11-22 22:52:26 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-11-22 22:52:26 +0000 |
| commit | a849c01d4cb25ca4ff5e1a618b73e4d4b5603069 (patch) | |
| tree | ce7e6d2ddc80dabfc4f9ee9e01796f7caaae38a1 /src/interp/i-spec1.boot | |
| parent | fcc7f11db9c755b9b58ce43d37bbe8a702af8ebf (diff) | |
| download | open-axiom-a849c01d4cb25ca4ff5e1a618b73e4d4b5603069.tar.gz | |
* i-analy.boot: Globally substtitue %noMapVal for noMapVal.
* i-intern.boot: Likewise.
* i-map.boot: Likewise.
* i-spec2.boot: Likewise.
* i-spec1.boot: Likewise.
Diffstat (limited to 'src/interp/i-spec1.boot')
| -rw-r--r-- | src/interp/i-spec1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index 1ab11dc0..444cb15f 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -79,7 +79,7 @@ upADEF t == $compilingMap : local := true -- if there is a predicate, merge it in with the body - if pred ^= true then body := ['IF,pred,body,'noMapVal] + if pred ^= true then body := ['IF,pred,body,'%noMapVal] tar := getTarget t null m and tar is ['Mapping,.,:argTypes] and (#vars = #argTypes) => |