diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-21 15:41:27 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-21 15:43:21 +0100 |
commit | 6b4ba76d05bf229b45d9f2be189cce29f46e3111 (patch) | |
tree | 72b7d7fbedaddb4924517b3f9e6e290f91346384 /libguile/srfi-1.c | |
parent | 3583665aa0c07011c985092776fc9db0d610466c (diff) | |
download | guile-6b4ba76d05bf229b45d9f2be189cce29f46e3111.tar.gz |
Change eval.c to use scm_c_vm_run instead of scm_call_with_vm.
* libguile/eval.c (scm_apply_0, scm_apply_1, scm_apply_2, scm_apply_3)
(scm_map, scm_for_each, scm_apply): Change to prefer scm_apply_0, and
to have it call vm_run instead of call_with_vm.
(eval): Use scm_apply_0 and scm_call_0.
* libguile/srfi-1.c (scm_srfi1_count): Use scm_apply_0.
Diffstat (limited to 'libguile/srfi-1.c')
-rw-r--r-- | libguile/srfi-1.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/srfi-1.c b/libguile/srfi-1.c index 54c7e2aa3..aaa3efe6c 100644 --- a/libguile/srfi-1.c +++ b/libguile/srfi-1.c @@ -1,7 +1,7 @@ /* srfi-1.c --- SRFI-1 procedures for Guile * * Copyright (C) 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2005, 2006, - * 2008, 2009, 2010, 2011 Free Software Foundation, Inc. + * 2008, 2009, 2010, 2011, 2013 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -258,7 +258,7 @@ SCM_DEFINE (scm_srfi1_count, "count", 2, 0, 1, SCM_SIMPLE_VECTOR_SET (vec, i, SCM_CDR (lst)); /* rest of lst */ } - count += scm_is_true (scm_apply (pred, args, SCM_EOL)); + count += scm_is_true (scm_apply_0 (pred, args)); } } |