From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 1 Mar 1995 14:09:28 +0000 (+0000)
Subject: Edit
X-Git-Tag: 20090517-FFI~6571
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c22412b6d31dc8795b33e4482176af9aee7895c8;p=mit-scheme.git

Edit

  simple-operator? => (lambda (op) (simple-operator? op))

to fix loading order problem
---

diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm
index 0c8190d47..c869a52ce 100644
--- a/v8/src/compiler/midend/utils.scm
+++ b/v8/src/compiler/midend/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: utils.scm,v 1.19 1995/02/28 01:42:59 adams Exp $
+$Id: utils.scm,v 1.20 1995/03/01 14:09:28 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -582,7 +582,7 @@ Example use of FORM/COPY-TRANSFORMING:
       (operator/satisfies? rator '(OUT-OF-LINE-HOOK))))
 
 (define form/simple?
-  (form/head-operator-test simple-operator?))
+  (form/head-operator-test (lambda (op) (simple-operator? op))))
 
 (define form/pseudo-simple?
   (form/head-operator-test pseudo-simple-operator?))