diff options
Diffstat (limited to 'src/interp/parse.boot')
| -rw-r--r-- | src/interp/parse.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/parse.boot b/src/interp/parse.boot index a2934199..c6e4bbe2 100644 --- a/src/interp/parse.boot +++ b/src/interp/parse.boot @@ -199,9 +199,9 @@ parseHas t == parseDEF: %ParseForm -> %Form parseDEF t == - t isnt ["DEF",$lhs,tList,specialList,body] => systemErrorHere ["parseDEF",t] + t isnt ["DEF",$lhs,tList,body] => systemErrorHere ["parseDEF",t] setDefOp $lhs - ["DEF",parseLhs $lhs,parseTypeList tList,parseTranList specialList, + ["DEF",parseLhs $lhs,parseTypeList tList, parseTranCheckForRecord(body,opOf $lhs)] parseLhs: %ParseForm -> %Form |