diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-06-21 19:04:30 +0300 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-06-21 19:04:30 +0300 |
| commit | 54574861db3f7c02cd5e347f243d119b992232d2 (patch) | |
| tree | e0bedabc8e33876848e6a192ed6e9bce76833c37 /modules/guile/getpw.scm | |
| parent | 7d63e9e21b74f3b0ca3a87714e19ef1bbfeb7fbf (diff) | |
| download | smap-54574861db3f7c02cd5e347f243d119b992232d2.tar.gz smap-54574861db3f7c02cd5e347f243d119b992232d2.tar.bz2 | |
Change transformation syntax and method calling convention.
* include/smap/module.h (smap_module)<smap_xform>: Change
signature.
* modules/guile/getpw.scm (smap-xform): Change signature.
* modules/guile/guile.c (guile_xform): Change signature.
* src/query.c: Change transform syntax. New syntax is:
"transform" "key"|"map" dbname.
* src/smapd.cfin [GUILE]: Add sample transform entries.
Diffstat (limited to 'modules/guile/getpw.scm')
| -rw-r--r-- | modules/guile/getpw.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/modules/guile/getpw.scm b/modules/guile/getpw.scm index 88bd724..9029e96 100644 --- a/modules/guile/getpw.scm +++ b/modules/guile/getpw.scm @@ -107,11 +107,11 @@ "NOTFOUND"))) (newline))) -(define-public (smap-xform handle map arg . rest) +(define-public (smap-xform handle arg . rest) (let ((arg-parts (string-split arg #\@))) (if (null? (cdr arg-parts)) #f - (cons #f (car arg-parts))))) + (car arg-parts)))) ;;; Module initialization function returns an associative list ;;; of methods implemented by the module. Each method is represented |