diff options
author | Andy Wingo <wingo@pobox.com> | 2009-08-21 00:38:48 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-01 21:00:23 +0100 |
commit | 95e59982049ef822933445746a6b78de8f737cb4 (patch) | |
tree | d8c2aac9344316aab8957dc25eea390695f2a02f /srfi/srfi-1.c | |
parent | 81b30a35f706105767a0ac1391609147cb7c9383 (diff) | |
download | guile-95e59982049ef822933445746a6b78de8f737cb4.tar.gz |
gut trampolines
* libguile/eval.c: Gut the trampoline implementation. We'll be doing
much more clever things here that will obviate the need for the
procedure arg of map and for-each to be allocated in many cases...
trampolines were a noble attempt at optimizing in the wrong place.
* srfi/srfi-1.c (scm_srfi1_lset_difference_x): Validate that we get a
proc, because the trampoline won't do it for us.
* test-suite/tests/sort.test ("sort"):
* test-suite/tests/srfi-1.test ("count", "fold", "list-index"):
Change expected exceptions, due to trampoline functions not doing any
computation.
Diffstat (limited to 'srfi/srfi-1.c')
-rw-r--r-- | srfi/srfi-1.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/srfi/srfi-1.c b/srfi/srfi-1.c index 02f46fca0..069f213d8 100644 --- a/srfi/srfi-1.c +++ b/srfi/srfi-1.c @@ -1,6 +1,6 @@ /* srfi-1.c --- SRFI-1 procedures for Guile * - * Copyright (C) 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2005, 2006, 2008 + * Copyright (C) 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2005, 2006, 2008, 2009 * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or @@ -1330,6 +1330,7 @@ SCM_DEFINE (scm_srfi1_lset_difference_x, "lset-difference!", 2, 0, 1, int argnum; SCM_ASSERT (equal_tramp, equal, SCM_ARG1, FUNC_NAME); + SCM_VALIDATE_PROC (SCM_ARG1, equal); SCM_VALIDATE_REST_ARGUMENT (rest); ret = SCM_EOL; |