diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-05-05 23:07:23 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-05-05 23:07:37 +0200 |
| commit | a2230b653b86cece1daab09315873b5a4c592d6b (patch) | |
| tree | a0a543c5d4a66f5fddb9d99600c55efd64ba0946 /libguile/evalext.c | |
| parent | e2ccab571e3e756b96b4179769b8fe8821bc28fd (diff) | |
| download | guile-a2230b653b86cece1daab09315873b5a4c592d6b.tar.gz | |
map and for-each in scheme
* module/ice-9/boot-9.scm (map, for-each): Implement in Scheme instead
of C. There are boot versions before `cond' is defined.
(map-in-order): Define this alias here instead of in evalext.h.
* libguile/eval.c: Stub out the map and for-each definitions to just
call into Scheme.
* libguile/evalext.c: Remove map-in-order definition.
* module/srfi/srfi-1.scm: Replace all calls to map1 with calls to map.
(map, for-each): Define implementations here, in Scheme, instead of in
C.
* test-suite/tests/eval.test (exception:wrong-length, "map"): Update the
expected exception for mapping over lists of different lengths.
* libguile/srfi-1.h:
* libguile/srfi-1.c: Remove map and for-each definitions. Remove the
bit that extended the core `map' primitive with another method: the
right way to do that is with modules.
Diffstat (limited to 'libguile/evalext.c')
| -rw-r--r-- | libguile/evalext.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/libguile/evalext.c b/libguile/evalext.c index ff2ff0ec0..1e5bd6822 100644 --- a/libguile/evalext.c +++ b/libguile/evalext.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1998,1999,2000,2001,2002,2003, 2006, 2008, 2009, 2010 Free Software Foundation, Inc. +/* Copyright (C) 1998,1999,2000,2001,2002,2003, 2006, 2008, 2009, 2010, 2011 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 @@ -55,9 +55,6 @@ SCM_DEFINE (scm_defined_p, "defined?", 1, 1, 0, #undef FUNC_NAME -SCM_REGISTER_PROC (s_map_in_order, "map-in-order", 2, 0, 1, scm_map); - - SCM_DEFINE (scm_self_evaluating_p, "self-evaluating?", 1, 0, 0, (SCM obj), "Return #t for objects which Guile considers self-evaluating") |