mescc.scm: compile simple, well-behaved for-loop.
[mes.git] / c-lexer.scm
index 6c57fb3c7be663d6d25f1eb074821d5a2d2313ae..7deadacbc56a0a2374873e3fa20230de0599a1e3 100644 (file)
                (read-char)
                (loop (peek-char) (append lst (list c))))))))
 
+(define (read-line . rest ;; port handle-delim
+         )
+  (let ((line (read-delimited "\n\r" (current-input-port) 'peek)))
+    (read-char)
+    line))
+
 (define (port-source-location port)
   (make-source-location (port-filename port)
                         (port-line port)