Fixed bug in MAKE-ATAN-OPERATOR.

diff --git a/v7/src/runtime/numint.scm b/v7/src/runtime/numint.scm
index f40121bdef0ec967ff7c46284e86e14497704df4..bc6906ccaa21a37bf7041023a3514ec6e9727794 100644 (file)
--- a/v7/src/runtime/numint.scm
+++ b/v7/src/runtime/numint.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: numint.scm,v 1.4 1995/08/20 15:58:14 adams Exp $
+$Id: numint.scm,v 1.5 1995/10/12 06:37:03 adams Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -98,6 +98,7 @@ MIT in each case. |#
   (make-arity-dispatched-procedure
    (lambda (self z1 #!optional z2)     ; required for arity
      (error "ATAN operator: should never get to this case" self z1 z2))
+   #F
    atan1
    atan2))