Parent Directory | Revision Log | Patch
revision 1.67 by mvo, Mon Feb 11 18:06:49 2002 UTC | revision 1.68 by dirk, Fri Mar 1 00:19:20 2002 UTC | |
---|---|---|
# | Line 149 gh_doubles2scm (const double *d, long n) | Line 149 gh_doubles2scm (const double *d, long n) |
149 | static SCM | static SCM |
150 | makvect (char *m, size_t len, int type) | makvect (char *m, size_t len, int type) |
151 | { | { |
152 | return scm_alloc_cell (SCM_MAKE_UVECTOR_TAG (len, type), (scm_t_bits) m); | return scm_cell (SCM_MAKE_UVECTOR_TAG (len, type), (scm_t_bits) m); |
153 | } | } |
154 | ||
155 | SCM | SCM |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |