From e2618c92315f6b544e41c9b7d4cad92adcf98655 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 4 Feb 2011 00:04:31 +0000
Subject: 	* interp/c-util.boot (mutateConditionalFormWithUnaryFunction):
 	Rename from mutateCONDFormWithUnaryFunction.  Update callers 
 (mutateBindingFormWithUnaryFunction): Rename from 
 mutateLETFormWithUnaryFunction.  Allow %bind form too. 	Update
 callers.

---
 src/algebra/strap/SYMBOL.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra/strap/SYMBOL.lsp')

diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp
index 71fd3a5c..320352ff 100644
--- a/src/algebra/strap/SYMBOL.lsp
+++ b/src/algebra/strap/SYMBOL.lsp
@@ -278,7 +278,7 @@
 (DEFUN |SYMBOL;latex;$S;25| (|e| $)
   (PROG (|ss| |lo| |sc|)
     (RETURN
-      (LET ((|s| (PNAME (SPADCALL |e| (|getShellEntry| $ 100)))))
+      (LET ((|s| (PNAME (|SYMBOL;name;2$;31| |e| $))))
         (SEQ (COND
                ((< 1 (LENGTH |s|))
                 (COND
-- 
cgit v1.2.3