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 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] |