diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-02 16:20:53 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-02 16:20:53 +0000 |
commit | d2c2747da6be576cc592bcb3f046356af2bfca9b (patch) | |
tree | a4108a95f284d9ee425f32d4027db0edab9975f4 /src/interp/i-map.boot | |
parent | 327b4fb2c149c02dd72f3d8f6070b6e0144828ee (diff) | |
download | open-axiom-d2c2747da6be576cc592bcb3f046356af2bfca9b.tar.gz |
* interp/cstream.boot: Cleanup.
* interp/g-boot.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-map.boot: Likewise.
* interp/i-resolv.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/nrungo.boot: Likewise.
* interp/posit.boot: Likewise.
* interp/sys-constants.boot: Define more constants.
Diffstat (limited to 'src/interp/i-map.boot')
-rw-r--r-- | src/interp/i-map.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index e50f0b4e..0b2807df 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -138,7 +138,7 @@ addDefMap(['DEF,lhs,mapsig,.,rhs],pred) == -- if map is declared, check that signature arg count is the -- same as what is given. if get(op,'mode,$e) is ['Mapping,.,:mapargs] then - EQCAR(rhs,'rules) => + rhs is ["rules",:.] => 0 ~= (numargs := # rest lhs) => throwKeyedMsg("S2IM0027",[numargs,op]) # rest lhs ~= # mapargs => throwKeyedMsg("S2IM0008",[op]) |