mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

use scm_c_make_struct in scm_values

Browse source 
* libguile/values.c (scm_values): Micro-optimization.
This commit is contained in:
Andy Wingo 2011-02-12 22:19:28 +01:00
parent be90d0b6f9
commit d7265e376d
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/values.c
View file

@ -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 * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * 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); result = SCM_CAR (args);
else else
{ {
result = scm_make_struct (scm_values_vtable, SCM_INUM0, result = scm_c_make_struct (scm_values_vtable, 0, 1, SCM_UNPACK (args));
scm_list_1 (args));
} }
return result; return result;