From 5320503d8d66ff0817d91fb9b340eac26ad1406a Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 15 Jul 1997 17:29:56 +0000 Subject: [PATCH] Merge 7.4 and 8.0 versions on scomb.scm Changed UNDEFINED-CONDITIONAL-BRANCH to be UNSPECIFIC directly, rather than trying to reconstruct the same machine-dependent bit-pattern. --- v7/src/runtime/scomb.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/scomb.scm b/v7/src/runtime/scomb.scm index cb661638d..16e9045bb 100644 --- a/v7/src/runtime/scomb.scm +++ b/v7/src/runtime/scomb.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: scomb.scm,v 14.14 1995/07/27 22:00:28 adams Exp $ +$Id: scomb.scm,v 14.15 1997/07/15 17:29:56 adams Exp $ Copyright (c) 1988-1994 Massachusetts Institute of Technology @@ -197,8 +197,7 @@ MIT in each case. |# (define (conditional? object) (object-type? (ucode-type conditional) object)) -(define undefined-conditional-branch - (object-new-type (ucode-type constant) #x-800000)) +(define undefined-conditional-branch unspecific) (define-integrable (conditional-predicate conditional) (&triple-first conditional)) -- 2.25.1