When building constant-folding list, be tolerant of primitives that
authorChris Hanson <org/chris-hanson/cph>
Tue, 29 Aug 2006 04:17:58 +0000 (04:17 +0000)
committerChris Hanson <org/chris-hanson/cph>
Tue, 29 Aug 2006 04:17:58 +0000 (04:17 +0000)
aren't implemented by the microcode.

v7/src/runtime/scomb.scm

index 196ce6f1e2f067dc6610335ac95bacd11cacc96d..a7c86a2cf04e5bc008bd061376d2f585318e751f 100644 (file)
@@ -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.
 \f
 (define (initialize-package!)
   (set! combination/constant-folding-operators
-       (map make-primitive-procedure
+       (map (lambda (name)
+              (make-primitive-procedure name #t))
             '(
               &*
               &+