diff options
Diffstat (limited to 'src/interp/newaux.lisp')
-rw-r--r-- | src/interp/newaux.lisp | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/src/interp/newaux.lisp b/src/interp/newaux.lisp index c11a6760..182ec453 100644 --- a/src/interp/newaux.lisp +++ b/src/interp/newaux.lisp @@ -105,7 +105,7 @@ (\@ 996 997) (|pretend| 995 996) (\.) (\! \! 1002 1001) (\, 110 111) - (\; 81 82 (|parseSemicolon|)) + (\; 81 82 |parseSemicolon|) (< 400 400) (> 400 400) (<< 400 400) (>> 400 400) (<= 400 400) (>= 400 400) @@ -114,14 +114,14 @@ (|in| 400 400) (|case| 400 400) (|add| 400 120) - (|with| 2000 400 (|parseInfixWith|)) + (|with| 2000 400 |parseInfixWith|) (|has| 400 400) (|where| 121 104) ; must be 121 for SPAD, 126 for boot--> nboot (|when| 112 190) (|is| 400 400) (|isnt| 400 400) (|and| 250 251) (|or| 200 201) (/\\ 250 251) (\\/ 200 201) - (\.\. SEGMENT 401 699 (|parseSegmentTail|)) + (\.\. SEGMENT 401 699 |parseSegmentTail|) (=> 123 103) (+-> 998 121) (== DEF 122 121) @@ -130,39 +130,39 @@ (\:- 125 124) (\:= 125 124))) (mapcar #'(LAMBDA (J) (MAKENEWOP J `|Nud|)) - '((|for| 130 350 (|parseLoop|)) - (|while| 130 190 (|parseLoop|)) - (|until| 130 190 (|parseLoop|)) - (|repeat| 130 190 (|parseLoop|)) - (|import| 120 0 (|parseImport|) ) - (|inline| 120 0 (|parseInline|) ) - (|forall| 998 999 (|parseScheme|)) - (|exist| 998 999 (|parseScheme|)) + '((|for| 130 350 |parseLoop|) + (|while| 130 190 |parseLoop|) + (|until| 130 190 |parseLoop|) + (|repeat| 130 190 |parseLoop|) + (|import| 120 0 |parseImport|) + (|inline| 120 0 |parseInline|) + (|forall| 998 999 |parseScheme|) + (|exist| 998 999 |parseScheme|) (|unless|) (|add| 900 120) - (|with| 1000 300 (|parseWith|)) + (|with| 1000 300 |parseWith|) (|has| 400 400) (- 701 700) ; right-prec. wants to be -1 + left-prec ;; (\+ 701 700) (\# 999 998) (\! 1002 1001) - (\' 999 999 (|parseData|)) + (\' 999 999 |parseData|) (-> 1001 1002) (\: 194 195) (|not| 260 259 NIL) (~ 260 259 nil) (= 400 700) - (|return| 202 201 (|parseReturn|)) - (|try| 202 201 (|parseTry|)) - (|throw| 202 201 (|parseThrow|)) - (|leave| 202 201 (|parseLeave|)) - (|exit| 202 201 (|parseExit|)) - (|break| 202 201 (|parseJump|)) - (|iterate| 202 201 (|parseJump|)) + (|return| 202 201 |parseReturn|) + (|try| 202 201 |parseTry|) + (|throw| 202 201 |parseThrow|) + (|leave| 202 201 |parseLeave|) + (|exit| 202 201 |parseExit|) + (|break| 202 201 |parseJump|) + (|iterate| 202 201 |parseJump|) (|from|) (|yield|) - (|if| 130 0 (|parseConditional|)) ; was 130 - (|case| 130 190 (|parseMatch|)) + (|if| 130 0 |parseConditional|) ; was 130 + (|case| 130 190 |parseMatch|) (\| 0 190) (|suchthat|) (|then| 0 114) |