diff options
author | Mathieu Othacehe <m.othacehe@gmail.com> | 2017-07-06 10:03:16 +0200 |
---|---|---|
committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2017-07-06 10:03:16 +0200 |
commit | d7dc7cb92cc88ed3a245e628b424953206a3f784 (patch) | |
tree | 92860bd92e5ec1cb581b8be886e50b839763342d /src/cuirass/database.scm | |
parent | 4666142ca57c15ef89759fb22511ab4c1b96ece9 (diff) | |
download | cuirass-d7dc7cb92cc88ed3a245e628b424953206a3f784.tar cuirass-d7dc7cb92cc88ed3a245e628b424953206a3f784.tar.gz |
cuirass: Stop λ/lambda mixing.
* bin/cuirass.in: Replace λ by lambda.
* bin/evaluate.in: Ditto.
* build-aux/guix.scm: Ditto.
* examples/gnu-system.scm: Ditto.
* examples/guix-track-git.scm: Ditto.
* src/cuirass.scm: Ditto.
* src/cuirass/base.scm: Ditto.
* src/cuirass/database.scm: Ditto.
* src/cuirass/ui.scm: Ditto.
* src/cuirass/utils.scm: Remove λ* macro.
Diffstat (limited to 'src/cuirass/database.scm')
-rw-r--r-- | src/cuirass/database.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 91133c2..1ced411 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -71,7 +71,7 @@ will be replaced by ARGS." (define (read-sql-file file-name) "Return a list of string containing SQL instructions from FILE-NAME." (call-with-input-file file-name - (λ (port) + (lambda (port) (let loop ((insts '())) (let ((inst (read-delimited ";" port 'concat))) (if (or (eof-object? inst) @@ -89,7 +89,7 @@ database object." (delete-file db-name)) (let ((db (sqlite-open db-name (logior SQLITE_OPEN_CREATE SQLITE_OPEN_READWRITE)))) - (for-each (λ (sql) (sqlite-exec db sql)) + (for-each (lambda (sql) (sqlite-exec db sql)) (read-sql-file schema)) db)) @@ -105,7 +105,7 @@ database object." (sqlite-close db)) (define* (assq-refs alst keys #:optional default-value) - (map (λ (key) (or (assq-ref alst key) default-value)) + (map (lambda (key) (or (assq-ref alst key) default-value)) keys)) (define (last-insert-rowid db) @@ -169,8 +169,8 @@ INSERT INTO Evaluations (specification, revision) VALUES ('~A', '~A');" (let ((db (db-open))) (dynamic-wind (const #t) - (λ () body ...) - (λ () (db-close db))))) + (lambda () body ...) + (lambda () (db-close db))))) (define* (read-quoted-string #:optional (port (current-input-port))) "Read all of the characters out of PORT and return them as a SQL quoted |