diff options
Diffstat (limited to 'src/guile.c')
| -rw-r--r-- | src/guile.c | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/src/guile.c b/src/guile.c index e59b49c..7fe052f 100644 --- a/src/guile.c +++ b/src/guile.c @@ -1,8 +1,8 @@ /* This file is part of Idest. - Copyright (C) 2009-2011 Sergey Poznyakoff + Copyright (C) 2009-2011, 2015 Sergey Poznyakoff Idest is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. @@ -380,15 +380,17 @@ ed_item_from_scm(struct ed_item *itm, SCM list) static int set_frame_from_rawdata(struct id3_frame *frame, SCM list) { for (; !scm_is_null(list); list = SCM_CDR(list)) { SCM cell = SCM_CAR(list); int n = scm_to_int(SCM_CAR(cell)); - int rc; + int type = scm_to_int(SCM_CAR(SCM_CDR(cell))); char *value = scm_to_locale_string(SCM_CAR(SCM_CDR(SCM_CDR(cell)))); - rc = frame_field_from_string(frame, n, value); + int rc; + + rc = frame_field_from_rawdata(frame, n, type, value); free(value); if (rc) return rc; } return 0; } @@ -417,17 +419,17 @@ scm_to_tag(SCM scm, struct id3_tag *tag) if (!scm_is_string(x)) scm_misc_error(NULL, "Wrong car type: ~S", scm_list_1(elt)); id = scm_to_locale_string(x); - frametype = id3_frametype_lookup(id, strlen(id)); - if (!frametype) - idest_guile_error("guile-transform", - id, SCM_BOOL_F, - IDEST_ERR_BADTYPE); + /* frametype = id3_frametype_lookup(id, strlen(id)); */ + /* if (!frametype) */ + /* idest_guile_error("guile-transform", */ + /* id, SCM_BOOL_F, */ + /* IDEST_ERR_BADTYPE); */ ed_item_zero(&itm); memcpy(itm.id, id, sizeof(itm.id)); itm.name = id; x = SCM_CDR(elt); |