From 630b6f25ff2900a31326141b67a187a685e7e9b8 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 18 Oct 2011 01:27:42 +0000 Subject: * interp/spad-parser.boot (parseSegmentTail): Tidy. * interp/postpar.boot (postSEGMENT): Remove. (postTupleCollect): Likewise. (postBootNotEqual): Likewise. * interp/parsing.lisp (CHAR-EQ): Remove. (CHAR-NE): Likewise. (getToken): Likewise. * interp/newaux.lisp: Remove "^=" as legitimate operator. * interp/lexing.boot (geToken): Rename from getSpadToken. * interp/i-intern.boot (mkAtree3): Check for new form of universal segment. * interp/parse.boot (parseSegment): Likewise. * algebra/seg.spad.pamphlet (Segment): Use .. instead of SEGMENT. (SegmentFunctions2): Likewise. (UniversalSegment): Likewise. --- src/interp/parse.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/parse.boot') diff --git a/src/interp/parse.boot b/src/interp/parse.boot index 9f30064d..f980de7c 100644 --- a/src/interp/parse.boot +++ b/src/interp/parse.boot @@ -311,8 +311,8 @@ parseInBy t == parseSegment: %ParseForm -> %Form parseSegment p == - p is ["SEGMENT",a,b] => - b => ["SEGMENT",parseTran a, parseTran b] + p is ["SEGMENT",a,:b] => + b => ["SEGMENT",parseTran a, parseTran first b] ["SEGMENT",parseTran a] -- SEGMENT is being elted from a domain ["SEGMENT",:rest p] -- cgit v1.2.3