mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +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

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
* it under the terms of the GNU General Public License as published by
@ -3338,6 +3338,10 @@ tail:
RETURN (arg1)
}
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))))
case scm_tc7_lsubr:
#ifdef DEVAL