diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-02-12 22:19:28 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-02-13 15:06:11 +0100 |
| commit | d7265e376d27f6bf96bf60c01646ba8893acfba5 (patch) | |
| tree | 95d2ec0a477649a7b12279ff7fe120bd0c0e2ce6 /libguile/values.c | |
| parent | be90d0b6f9e79bc882b2289bf0a5ea1b3c082b3c (diff) | |
| download | guile-d7265e376d27f6bf96bf60c01646ba8893acfba5.tar.gz | |
use scm_c_make_struct in scm_values
* libguile/values.c (scm_values): Micro-optimization.
Diffstat (limited to 'libguile/values.c')
| -rw-r--r-- | libguile/values.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/libguile/values.c b/libguile/values.c index 967fcd6bc..8bbfc7164 100644 --- a/libguile/values.c +++ b/libguile/values.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2000, 2001, 2006, 2008, 2009 Free Software Foundation, Inc. +/* Copyright (C) 2000, 2001, 2006, 2008, 2009, 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 @@ -66,8 +66,7 @@ SCM_DEFINE (scm_values, "values", 0, 0, 1, result = SCM_CAR (args); else { - result = scm_make_struct (scm_values_vtable, SCM_INUM0, - scm_list_1 (args)); + result = scm_c_make_struct (scm_values_vtable, 0, 1, SCM_UNPACK (args)); } return result; |