diff options
Diffstat (limited to 'examples/settitle.scm')
-rw-r--r-- | examples/settitle.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/examples/settitle.scm b/examples/settitle.scm index e541b66..cd43106 100644 --- a/examples/settitle.scm +++ b/examples/settitle.scm @@ -14,10 +14,13 @@ (lambda (match) (cons (cons "TIT2" - (string-map - (lambda (c) - (if (char=? c #\_) #\space c)) - (match:substring match 1))) + (list + (cons + 'text + (string-map + (lambda (c) + (if (char=? c #\_) #\space c)) + (match:substring match 1))))) ;; (filter (lambda (elt) |