From 1ad1f5ceba4b828c6fdf8d1e49a5a85ac2a4019d Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Sat, 26 Apr 2008 17:17:34 -0400
Subject: [PATCH] Switching back from <s-exp> tuple to vectors

---
 extra/lisp/parser/parser.factor | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/extra/lisp/parser/parser.factor b/extra/lisp/parser/parser.factor
index 0fac78ae75..2375313a10 100644
--- a/extra/lisp/parser/parser.factor
+++ b/extra/lisp/parser/parser.factor
@@ -6,9 +6,6 @@ IN: lisp.parser
 TUPLE: lisp-symbol name ;
 C: <lisp-symbol> lisp-symbol
 
-TUPLE: s-exp body ;
-C: <s-exp> s-exp
-
 EBNF: lisp-expr
 _            = (" " | "\t" | "\n")*
 LPAREN       = "("
@@ -32,5 +29,5 @@ atom         = number
               | identifier
               | string
 list-item    = _ (atom|s-expression) _                        => [[ second ]]
-s-expression = LPAREN (list-item)* RPAREN             => [[ second <s-exp> ]]
+s-expression = LPAREN (list-item)* RPAREN             => [[ second ]]
 ;EBNF