From 76b3bd66c2f3402ce592d66173c201ef2a09915a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 9 Feb 2010 09:46:58 +0000
Subject: 	* interp/vmlisp.lisp (MRP): Remove. 	(SFP): Likewise. 
 * interp/i-syscmd.boot (compileAsharpCmd1): Use getEnv, not GETENV.

---
 src/interp/i-syscmd.boot | 2 +-
 src/interp/vmlisp.lisp   | 6 ------
 2 files changed, 1 insertion(+), 7 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index b2d70fd2..d5a324ef 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -588,7 +588,7 @@ compileAsharpCmd1 args ==
     if not beQuiet then sayKeyedMsg("S2IZ0038A",[namestring args, asharpArgs])
 
     command :=
-     STRCONC(STRCONC(GETENV('"ALDORROOT"),'"/bin/"),_
+     STRCONC(STRCONC(getEnv('"ALDORROOT"),'"/bin/"),_
                "aldor ", asharpArgs, '" ", namestring args)
     rc := runCommand command
 
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp
index 811b7069..8e327b97 100644
--- a/src/interp/vmlisp.lisp
+++ b/src/interp/vmlisp.lisp
@@ -221,9 +221,6 @@
 (defmacro minus (x)
  `(- ,x))
 
-(defmacro mrp (x)
- `(special-form-p ,x))
-
 (defmacro namederrset (id iexp &rest item)
  (declare (ignore item))
   `(catch ,id ,iexp))
@@ -463,9 +460,6 @@
     (nsubstitute '(progn) nil body) ;don't treat NIL as a label
     `(block seq (tagbody ,@(nreverse body) ,val))))
 
-(defmacro sfp (x)
- `(special-form-p ,x))
-
 (defmacro sintp (n)
  `(typep ,n 'fixnum))
 
-- 
cgit v1.2.3