Fixed thinko

diff --git a/v8/src/compiler/midend/applicat.scm b/v8/src/compiler/midend/applicat.scm
index a5b8f038170c9ad4fc6c1bc69190f7c1bbce2f3b..4329d08d70865ae90e9ec78153119903f44d92a5 100644 (file)
--- a/v8/src/compiler/midend/applicat.scm
+++ b/v8/src/compiler/midend/applicat.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: applicat.scm,v 1.6 1996/03/08 22:27:09 adams Exp $
+$Id: applicat.scm,v 1.7 1996/03/09 15:25:30 adams Exp $
 
 Copyright (c) 1994-1996 Massachusetts Institute of Technology
 
@@ -123,10 +123,8 @@ MIT in each case. |#
        ((LOOKUP/? rator)
         (let ((place (assq (cadr rator) env)))
           (if (or (not place) (not (cadr place)))
-              (default)
-              `(CALL ,(applicat/expr env rator)
-                     ,(applicat/expr env cont)
-                     ,@(applicat/expr* env rands)))))
+              (checked-call)
+              (direct-call))))
        ((LAMBDA/? rator)
         (let* ((lambda-list (cadr rator))
                (rator* `(LAMBDA ,lambda-list
@@ -141,7 +139,7 @@ MIT in each case. |#
                  ,(applicat/expr env cont)
                  ,@(applicat/expr* env rands))))
        (else
-        (default))))
+        (checked-call))))
 \f
 (define-applicator LET (env bindings body)
   `(LET ,(map (lambda (binding)