From 331ff8fe93b6cee63593dcad6b7a9c235bac946d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 1 Jan 2011 23:39:28 +0000
Subject: Symbol cleanups

---
 src/interp/i-syscmd.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/i-syscmd.boot')

diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 2f7a46f2..ebc9a534 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -2164,7 +2164,7 @@ dewritify ob ==
                     oname := ob.2
                     f :=
                         integer? oname => eval GENSYMMER oname
-                        SYMBOL_-FUNCTION oname
+                        symbolFunction oname
                     not COMPILED_-FUNCTION_-P f =>
                         error '"A required BPI does not exist."
                     #ob > 3 and HASHEQ f ~= ob.3 =>
@@ -2188,7 +2188,7 @@ dewritify ob ==
                     name := ob.3
                     not FBOUNDP name => 
                        error strconc('"undefined function: ", symbolName name)
-                    nob := [SYMBOL_-FUNCTION name,:vec]
+                    nob := [symbolFunction name,:vec]
                     HPUT($seen, ob, nob)
                     HPUT($seen, nob, nob)
                     nob
-- 
cgit v1.2.3