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)