Parent Directory | Revision Log | Patch
revision 1.38 by ossau, Tue Jan 22 23:31:38 2002 UTC | revision 1.39 by dirk, Fri Mar 1 00:19:20 2002 UTC | |
---|---|---|
# | Line 59 SCM_DEFINE (scm_acons, "acons", 3, 0, 0, | Line 59 SCM_DEFINE (scm_acons, "acons", 3, 0, 0, |
59 | "function is @emph{not} destructive; @var{alist} is not modified.") | "function is @emph{not} destructive; @var{alist} is not modified.") |
60 | #define FUNC_NAME s_scm_acons | #define FUNC_NAME s_scm_acons |
61 | { | { |
62 | return scm_alloc_cell (SCM_UNPACK (scm_alloc_cell (SCM_UNPACK (key), | return scm_cell (SCM_UNPACK (scm_cell (SCM_UNPACK (key), |
63 | SCM_UNPACK (value))), | SCM_UNPACK (value))), |
64 | SCM_UNPACK (alist)); | SCM_UNPACK (alist)); |
65 | } | } |
66 | #undef FUNC_NAME | #undef FUNC_NAME |
67 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |