From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 14 Oct 1997 14:20:05 +0000 (+0000)
Subject: Added open-coding for MAKE-CELL.
X-Git-Tag: 20090517-FFI~4998
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8008bb15849ca3d5cfa0a771bf5019615e928889;p=mit-scheme.git

Added open-coding for MAKE-CELL.
---

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)