From d07108a6e867345da7be0c512faff93356e97d99 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Mon, 25 Jul 2016 00:06:50 +0200 Subject: [PATCH] scm.mes: add port-location dummies. --- scm.mes | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/scm.mes b/scm.mes index 0ecf363f..75e7ee44 100755 --- a/scm.mes +++ b/scm.mes @@ -275,3 +275,10 @@ (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) "") +(define (port-line port) 0) +(define (port-column port) 0) +(define (ftell port) 0) +(define (false-if-exception x) x)