diff options
Diffstat (limited to 'src/interp/i-spec1.boot')
| -rw-r--r-- | src/interp/i-spec1.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index 93c383f7..cec4db2b 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -1142,7 +1142,7 @@ declare(var,mode) == throwKeyedMsg("S2IS0017",[var,mode]) -- validate that the new declaration has the defined # of args mapval := objVal get(var,'value,$e) - -- mapval looks like '(MAP (args . defn)) + -- mapval looks like '(%Map (args . defn)) margs := CAADR mapval -- if one args, margs is not a pair, just #1 or NIL -- otherwise it looks like (tuple #1 #2 ...) @@ -1166,7 +1166,7 @@ declare(var,mode) == declareMap(var,mode) == -- declare a Mapping property - (v:=get(var,'value,$e)) and objVal(v) isnt ['MAP,:.] => + (v:=get(var,'value,$e)) and objVal(v) isnt ["%Map",:.] => throwKeyedMsg("S2IS0019",[var]) isPartialMode mode => throwKeyedMsg("S2IM0004",NIL) putHist(var,'mode,mode,$e) |