diff options
| author | jao <jao@gnu.org> | 2022-10-14 04:53:51 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-14 04:53:51 +0100 |
| commit | ca9223e0b2cac5a2cab6d967b7cd8b94082bba29 (patch) | |
| tree | 1c0735c3fc65ef3e791dc75d03517288e72e80b7 /src/geiser/geiser-data.ss | |
| parent | 1e91a62f72d5403dc2651ab3f2156c446cbeed41 (diff) | |
| download | geiser-chez-ca9223e0b2cac5a2cab6d967b7cd8b94082bba29.tar.gz geiser-chez-ca9223e0b2cac5a2cab6d967b7cd8b94082bba29.tar.bz2 | |
wee refactorings
Diffstat (limited to 'src/geiser/geiser-data.ss')
| -rw-r--r-- | src/geiser/geiser-data.ss | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/geiser/geiser-data.ss b/src/geiser/geiser-data.ss index 0176e59..e4aeba7 100644 --- a/src/geiser/geiser-data.ss +++ b/src/geiser/geiser-data.ss @@ -26,9 +26,7 @@ (let ((id (car x)) (sgs (let* ((s (format "(~a)" (cadr x))) (as (with-input-from-string s read))) - (and (list? as) - (list? (car as)) - (map cdr (remove '~ as)))))) + (and (list? (car as)) (map cdr (remove '~ as)))))) (symbol-hashtable-set! h id (cons id (cons sgs (cddr x)))))) d) h)) |