diff options
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)) |