Update Mes in Guile.
[mes.git] / module / mes / read-0.mes
index 1a7d76a1bb4fce27443bc9e3b5da38a11bb475f6..f36fff67f3fe0fd8802e0121f447151aa7aed7e7 100644 (file)
                    (else (read-word (read-byte) (append w (cons (integer->char c) '())) a))))
       ((eq? c 39) (if (null? w) (cons (lookup (cons (integer->char c) '()) a)
                                       (cons (read-word (read-byte) w a) '()))
-                      (begin (unread-byte c)) (lookup w a)))
+                      (begin (unread-byte c) (lookup w a))))
       ((eq? c 40) (if (null? w) (read-list a)
                       (begin (unread-byte c) (lookup w a))))
       ((eq? c 41) (if (null? w) (cons (lookup (cons (integer->char c) '()) a)