From ec55510a6ade5e3430f7000f464d4a7e205ed19f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 17 May 2010 23:40:52 +0000
Subject: 	* interp/fnewmeta.lisp: Remove out-of-date META grammar. 
 (PARSE-LabelExpr): Remove. 	* interp/newaux.lisp: Remove Nud property for
 << and >>.

---
 src/interp/newaux.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/interp/newaux.lisp')

diff --git a/src/interp/newaux.lisp b/src/interp/newaux.lisp
index ddf763b1..ed9b0030 100644
--- a/src/interp/newaux.lisp
+++ b/src/interp/newaux.lisp
@@ -112,8 +112,10 @@
           (<= 400 400)   (>= 400 400)
           (= 400 400)     (^= 400 400)
           (~= 400 400)
-          (|in| 400 400)    (|case| 400 400)
-          (|add| 400 120)   (|with| 2000 400 (|PARSE-InfixWith|))
+          (|in| 400 400) 
+	  (|case| 400 400)
+          (|add| 400 120)
+	  (|with| 2000 400 (|PARSE-InfixWith|))
           (|has| 400 400)
           (|where| 121 104)     ; must be 121 for SPAD, 126 for boot--> nboot
           (|when| 112 190)
@@ -146,8 +148,6 @@
           (\# 999 998)
           (\! 1002 1001)
           (\' 999 999 (|PARSE-Data|))
-          (<< 122 120 (|PARSE-LabelExpr|))
-          (>>)
           (-> 1001 1002)
           (\: 194 195)
           (|not| 260 259 NIL)
-- 
cgit v1.2.3