From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 29 Aug 2006 04:17:58 +0000 (+0000)
Subject: When building constant-folding list, be tolerant of primitives that
X-Git-Tag: 20090517-FFI~949
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ece5676d91960a3da91fab9e699926cb610af6e6;p=mit-scheme.git

When building constant-folding list, be tolerant of primitives that
aren't implemented by the microcode.
---

diff --git a/v7/src/runtime/scomb.scm b/v7/src/runtime/scomb.scm
index 196ce6f1e..a7c86a2cf 100644
--- a/v7/src/runtime/scomb.scm
+++ b/v7/src/runtime/scomb.scm
@@ -1,9 +1,10 @@
 #| -*-Scheme-*-
 
-$Id: scomb.scm,v 14.23 2003/02/14 18:28:33 cph Exp $
+$Id: scomb.scm,v 14.24 2006/08/29 04:17:58 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1995,1997,2001,2002,2003 Massachusetts Institute of Technology
+Copyright 2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -31,7 +32,8 @@ USA.
 
 (define (initialize-package!)
   (set! combination/constant-folding-operators
-	(map make-primitive-procedure
+	(map (lambda (name)
+	       (make-primitive-procedure name #t))
 	     '(
 	       &*
 	       &+