diff options
author | IOhannes m zmölnig <zmoelnig@iem.at> | 2017-01-23 13:23:12 +0100 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@iem.at> | 2017-01-23 13:23:12 +0100 |
commit | e56861860a027030bb6d8386ba25f95a057bccdd (patch) | |
tree | 952f78b2c7b2dc0925d69df7236358c0af294065 /s7-slib-init.scm | |
parent | 0b84e302c3cc5e4456ca13b292750f0ae63406bc (diff) |
New upstream version 17.1
Diffstat (limited to 's7-slib-init.scm')
-rw-r--r-- | s7-slib-init.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/s7-slib-init.scm b/s7-slib-init.scm index 1fb3e46..19ae5c2 100644 --- a/s7-slib-init.scm +++ b/s7-slib-init.scm @@ -235,9 +235,9 @@ (define (output-port-height . arg) 24) ;;@ (CURRENT-ERROR-PORT) -(define current-error-port - (let ((port (current-output-port))) - (lambda () port))) +;; (define current-error-port +;; (let ((port (current-output-port))) +;; (lambda () port))) ;;@ (TMPNAM) makes a temporary file name. (define tmpnam (let ((cntr 100)) |