From 8008bb15849ca3d5cfa0a771bf5019615e928889 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 14 Oct 1997 14:20:05 +0000
Subject: [PATCH] Added open-coding for MAKE-CELL.

---
 v7/src/compiler/rtlgen/opncod.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/v7/src/compiler/rtlgen/opncod.scm b/v7/src/compiler/rtlgen/opncod.scm
index b02e4c04f..683996229 100644
--- 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))
 
+(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)
-- 
2.25.1