Fix typo in previous change.

diff --git a/v7/src/compiler/fgopt/simapp.scm b/v7/src/compiler/fgopt/simapp.scm
index e4e651dadef69a5e4df270c6ecbe45e1b6f75ad6..0c971ff318cc0a524457efc3a95d8599dcd9f4de 100644 (file)
--- a/v7/src/compiler/fgopt/simapp.scm
+++ b/v7/src/compiler/fgopt/simapp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: simapp.scm,v 4.14 2007/04/29 20:16:05 cph Exp $
+$Id: simapp.scm,v 4.15 2007/04/29 20:17:43 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -118,8 +118,10 @@ USA.
                     (warn "Procedure called with wrong number of arguments"
                           value
                           number-supplied))))
+             #|
              (else
-              #|(warn "Possible inapplicable operator" operator)|#))))))
+              (warn "Possible inapplicable operator" operator))
+             |#)))))
 \f
 (define (initialize-lvalue-cache! lvalue)
   (set-lvalue-values-cache! lvalue (lvalue-values lvalue)))