if (lenp)
*lenp = len;
-
+
return new_str;
}
return 0;
SCM
index_get_cell (SCM s, Direction d)
{
-
+
assert (d);
return (d == LEFT) ? scm_car (s) : scm_cdr (s);
}
scm_set_cdr_x (s, v);
return s;
}
-
+
bool
is_number_pair (SCM p)
{
return src;
}
-
/* looks the key up in the cdrs of the alist-keys
- ignoring the car and ignoring non-pair keys.
Returns first match found, i.e.
{
SCM x = SCM_EOL;
for (SCM p = alist; scm_is_pair (p); p = scm_cdr (p))
- {
- x = scm_cons (scm_cdar (p), x);
- }
+ x = scm_cons (scm_cdar (p), x);
return x;
}