From b6e44a931b9e95fb4253eeeb048f167e55375937 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 28 Dec 2011 13:02:02 +0000
Subject: 	* interp/vmlisp.lisp (SORTBY): Remove. 	(QSORT): Likewise. 
 * interp/c-util.boot (formal?): Rename from isFormal.  Avoid POSITION. 
 * interp/sys-utility.boot (sortBy): New. 	* interp/br-op1.boot: Use it. 
 * interp/clam.boot: Likewise. 	* interp/define.boot: Likewise. 	*
 interp/i-output.boot: Likewise. 	* interp/i-coerfn.boot: Likewise. 
 * interp/i-syscmd.boot: Likewise. 	* interp/showimp.boot: Likewise. 
 * boot/tokens.boot: "<-" is now a token. 	* boot/ast.boot (bfKeyArg):
 New. 	(bfExpandKeys): Likewise. 	(bfApplication): Use it. 	*
 boot/parser.boot (bpKeyArg): New. 	(bpAssign): Use it.  Parse named
 arguments.

---
 src/boot/strap/tokens.clisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/boot/strap/tokens.clisp')

diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index e59680a6..c259bda3 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -43,10 +43,10 @@
         (LIST "<" 'LT) (LIST ">" 'GT) (LIST "<=" 'LE) (LIST ">=" 'GE)
         (LIST "=" 'SHOEEQ) (LIST "~=" 'SHOENE) (LIST ".." 'SEG)
         (LIST "#" 'LENGTH) (LIST "=>" 'EXIT) (LIST "->" 'ARROW)
-        (LIST ":=" 'BEC) (LIST "+->" 'GIVES) (LIST "==" 'DEF)
-        (LIST "<=>" 'TDEF) (LIST "(" 'OPAREN) (LIST ")" 'CPAREN)
-        (LIST "[" 'OBRACK) (LIST "]" 'CBRACK) (LIST "'" 'QUOTE)
-        (LIST "|" 'BAR)))
+        (LIST "<-" 'LARROW) (LIST ":=" 'BEC) (LIST "+->" 'GIVES)
+        (LIST "==" 'DEF) (LIST "<=>" 'TDEF) (LIST "(" 'OPAREN)
+        (LIST ")" 'CPAREN) (LIST "[" 'OBRACK) (LIST "]" 'CBRACK)
+        (LIST "'" 'QUOTE) (LIST "|" 'BAR)))
 
 (DEFUN |shoeKeyTableCons| ()
   (PROG (|KeyTable|)
-- 
cgit v1.2.3