Added open-coding for MAKE-CELL.

diff --git a/v7/src/compiler/rtlgen/opncod.scm b/v7/src/compiler/rtlgen/opncod.scm
index b02e4c04fc4b1d3b4154af4c3d72e2a0166dd021..683996229cb1960d5f7f457a84a245e962823cdb 100644 (file)
--- a/v7/src/compiler/rtlgen/opncod.scm
+++ b/v7/src/compiler/rtlgen/opncod.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: opncod.scm,v 4.64 1997/07/15 03:00:04 adams Exp $
+$Id: opncod.scm,v 4.65 1997/10/14 14:20:05 adams Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -808,6 +808,14 @@ MIT in each case. |#
    '(0)
    internal-close-coding-for-type-or-range-checks))
 \f
+(define-open-coder/value 'MAKE-CELL
+  (simple-open-coder
+   (lambda (combination expressions finish)
+     combination
+     (finish (rtl:make-cell-cons (car expressions))))
+   '(0)
+   false))
+
 (let ((open-code/pair-cons
        (lambda (type)
         (lambda (combination expressions finish)