guix: home: Fix imports. guix/scripts/home.scm: Fix imports.
guix/scripts/home.scm
| 32 | 32 | #:use-module (ice-9 match) | |
| 33 | 33 | #:use-module (srfi srfi-1) | |
| 34 | 34 | #:use-module (srfi srfi-26) | |
| 35 | + | #:use-module (srfi srfi-35) | |
| 35 | 36 | #:use-module (srfi srfi-37) | |
| 36 | 37 | #:export (guix-home)) | |
| 37 | 38 | ||
… | |||
| 108 | 109 | (lambda (opt name arg result) | |
| 109 | 110 | (alist-cons 'skip-safety-checks? #t result))) | |
| 110 | 111 | ||
| 111 | - | (option '("share") #t #f | |
| 112 | - | (lambda (opt name arg result) | |
| 113 | - | (alist-cons 'file-system-mapping | |
| 114 | - | (specification->file-system-mapping arg #t) | |
| 115 | - | result))) | |
| 116 | - | (option '("expose") #t #f | |
| 117 | - | (lambda (opt name arg result) | |
| 118 | - | (alist-cons 'file-system-mapping | |
| 119 | - | (specification->file-system-mapping arg #f) | |
| 120 | - | result))) | |
| 121 | - | ||
| 122 | 112 | (option '(#\n "dry-run") #f #f | |
| 123 | 113 | (lambda (opt name arg result) | |
| 124 | 114 | (alist-cons 'dry-run? #t (alist-cons 'graft? #f result)))) | |