Support #; comment.
[mes.git] / module / mes / read-0.mes
index ea854e16d378011c50a5db61461e7a52c8f0b10f..1e77ddd7f2cbdc96a0f6307501a17258d2f6a040 100644 (file)
                    ((eq? (peek-byte) 39) (read-byte)
                     (cons (lookup (cons (integer->char 35) (cons (integer->char 39) (list))) a)
                           (cons (read-word (read-byte) w a) (list))))
+                   ((eq? (peek-byte) 59) (read-byte)
+                    (read-word (read-byte) w a)
+                    (read-word (read-byte) w a))
                    ((eq? (peek-byte) 96) (read-byte)
                     (cons (lookup (cons (integer->char 35) (cons (integer->char 96) (list))) a)
                           (cons (read-word (read-byte) w a) (list))))