From c7529129f745cb157adae17a3a9b3434ad75e745 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 12 Oct 1995 06:37:03 +0000
Subject: [PATCH] Fixed bug in MAKE-ATAN-OPERATOR.

---
 v7/src/runtime/numint.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/v7/src/runtime/numint.scm b/v7/src/runtime/numint.scm
index f40121bde..bc6906cca 100644
--- 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))
 
-- 
2.25.1