added fix so interactive call to (readline) does not see immediate le…

…ading newline

ac.scm

@@ -1241,6 +1241,15 @@ Arc 3.1 documentation: https://arclanguage.github.io/ref.
 "))
     (tl2 interactive?)))
 
+(define (trash-whitespace)
+  (if (char-ready?)
+    (let ((c (peek-char)))
+      (if (or (not (char-whitespace? c))
+              (equal? c #\newline))
+        '()
+        (begin (read-char)
+               (trash-whitespace))))))
+
 (define (tl2 interactive?)
   (when interactive? (display "arc> "))
   (on-err (lambda (c)
@@ -1251,6 +1260,7 @@ Arc 3.1 documentation: https://arclanguage.github.io/ref.
             (tl2 interactive?))
     (lambda ()
       (let ((expr (read)))
+        (trash-whitespace)          ; throw away until we hit non-white or leading newline
         (if (eof-object? expr)
              (begin (when interactive? (newline))
                     (exit)))