diff options
Diffstat (limited to 'src/interp/parse.boot')
-rw-r--r-- | src/interp/parse.boot | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/interp/parse.boot b/src/interp/parse.boot index 2a93222d..e656c023 100644 --- a/src/interp/parse.boot +++ b/src/interp/parse.boot @@ -70,7 +70,7 @@ parseTransform x == parseTran: %ParseForm -> %Form parseTran x == - atom x => parseAtom x + atom x => x [op,:argl]:= x u := g(op) where g op == (op is ["elt",op,x] => g x; op) u="construct" => @@ -87,12 +87,6 @@ parseType t == parseTypeList l == mapInto(l, function parseType) -parseAtom: %Atom -> %Form -parseAtom x == - -- next line for compatibility with new compiler - x = "break" => parseLeave ["leave","$NoValue"] - x - parseTranList: %List -> %List parseTranList l == atom l => parseTran l |