summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-08-21 00:38:48 +0200
committerAndy Wingo <wingo@pobox.com>2009-12-01 21:00:23 +0100
commit95e59982049ef822933445746a6b78de8f737cb4 (patch)
treed8c2aac9344316aab8957dc25eea390695f2a02f /srfi/srfi-1.c
parent81b30a35f706105767a0ac1391609147cb7c9383 (diff)
downloadguile-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.c3
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;