mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 10:40:19 +02:00
Code Activity

* eval.c (SCM_APPLY): Added # args check for application of

Browse source 
procedures with arity 3.  (Thanks to Anders Holst.)
This commit is contained in:
Mikael Djurfeldt 2001-01-24 01:26:44 +00:00
parent 30ea841d0c
commit f1e06a96a2
3 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -19,6 +19,7 @@ For fixes or providing information which led to a fix:
Chris Cramer Chris Cramer
I. N. Golubev I. N. Golubev
Martin Grabmueller Martin Grabmueller
Andres Holst
Brad Knotwell Brad Knotwell
Matthias Köppe Matthias Köppe
Bruce Korb Bruce Korb

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2001-01-23 Mikael Djurfeldt <mdj@linnaeus.mit.edu>
* eval.c (SCM_APPLY): Added # args check for application of
procedures with arity 3. (Thanks to Anders Holst.)
2001-01-24 Dirk Herrmann <D.Herrmann@tu-bs.de> 2001-01-24 Dirk Herrmann <D.Herrmann@tu-bs.de>
* filesys.h (SCM_DIR_FLAG_OPEN, SCM_DIR_OPEN_P): Added. * filesys.h (SCM_DIR_FLAG_OPEN, SCM_DIR_OPEN_P): Added.

6
libguile/eval.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995, 96, 97, 98, 99, 2000 Free Software Foundation, Inc. /* Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -3338,6 +3338,10 @@ tail:
RETURN (arg1) RETURN (arg1)
} }
case scm_tc7_subr_3: case scm_tc7_subr_3:
SCM_ASRTGO (SCM_NNULLP (args)
&& SCM_NNULLP (SCM_CDR (args))
&& SCM_NULLP (SCM_CDDR (args)),
wrongnumargs);
RETURN (SCM_SUBRF (proc) (arg1, SCM_CAR (args), SCM_CAR (SCM_CDR (args)))) RETURN (SCM_SUBRF (proc) (arg1, SCM_CAR (args), SCM_CAR (SCM_CDR (args))))
case scm_tc7_lsubr: case scm_tc7_lsubr:
#ifdef DEVAL #ifdef DEVAL