scm.mes: add port-location dummies.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 24 Jul 2016 22:06:50 +0000 (00:06 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 24 Jul 2016 22:06:50 +0000 (00:06 +0200)
scm.mes

diff --git a/scm.mes b/scm.mes
index 0ecf363fdd2e828a1d1d3b842ff2c6a86bfc3574..75e7ee449dcd68698afdd62737fa07b73bbf1439 100755 (executable)
--- a/scm.mes
+++ b/scm.mes
        (let ((i (char->integer x)))
         (or (and (>= i (char->integer #\A)) (<= i (char->integer #\Z)))
             (and (>= i (char->integer #\a)) (<= i (char->integer #\z)))))))
+
+(define (current-input-port) #f)
+(define (port-filename port) "<stdin>")
+(define (port-line port) 0)
+(define (port-column port) 0)
+(define (ftell port) 0)
+(define (false-if-exception x) x)