From 03c09deff90cb2eb7a85730f7e74bce2df268b47 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 31 Jan 2011 01:48:20 +0000
Subject: 	* interp/vmlisp.lisp: Remove QREFELT, QSDEC1, QSETREFV,
 QSETVELT, 	QSETVELT-1, QSINC1, QVELT, QVELT-1. 	*
 algebra/si.spad.pamphlet: Use %iinc and %idec forms.

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

(limited to 'src/interp/compiler.boot')

diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index a4067f8d..ae9671d0 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -777,8 +777,8 @@ compCons1(["CONS",x,y],m,e) ==
       yt':= convert(yt,mr) or return nil
       [x,.,e]:= convert([x,mx,yt'.env],second mr) or return nil
       yt'.expr is ['%listlit,:.] => [['%listlit,x,:rest yt'.expr],mr,e]
-      [["CONS",x,yt'.expr],mr,e]
-    [["CONS",x,y],["Pair",mx,my],e]
+      [['%makepair,x,yt'.expr],mr,e]
+    [['%makepair,x,y],["Pair",mx,my],e]
   convert(T,m)
 
 --% SETQ
-- 
cgit v1.2.3