>From 724a8e49fb46fd525b4d82ffaa71d3fd18975ff9 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 10 Feb 2011 14:24:39 -0500 Subject: [PATCH] Fix extensibility of 1-argument atan * libguile/numbers.c (scm_atan): Call SCM_WTA_DISPATCH_1 instead of SCM_WTA_DISPATCH_2 if the second argument is unbound. Arguably, SCM_WTA_DISPATCH_* should handle that case gracefully, but currently it doesn't. --- libguile/numbers.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/libguile/numbers.c b/libguile/numbers.c index bd9870f..e4e5140 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -7025,7 +7025,7 @@ SCM_PRIMITIVE_GENERIC (scm_atan, "atan", 1, 1, 0, scm_c_make_rectangular (0, 2)); } else - SCM_WTA_DISPATCH_2 (g_scm_atan, z, y, SCM_ARG1, s_scm_atan); + SCM_WTA_DISPATCH_1 (g_scm_atan, z, SCM_ARG1, s_scm_atan); } else if (scm_is_real (z)) { -- 1.5.6.5