From a91adfdf373f6914bfec9901421cba0e99746b0b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Thu, 8 Sep 2016 23:58:23 +0200 Subject: New upstream version 16.8 --- s7-slib-init.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 's7-slib-init.scm') diff --git a/s7-slib-init.scm b/s7-slib-init.scm index be378f5..e9a5869 100644 --- a/s7-slib-init.scm +++ b/s7-slib-init.scm @@ -6,6 +6,9 @@ ;;; S7 is embedded in Snd or Sndlib; ;;; It does not exist as a stand-alone program. +;;@ define an error procedure for the library +(define slib:error error) + ;;@ (software-type) should be set to the generic operating system type. ;;; unix, vms, macos, amiga and ms-dos are supported. (define (software-type) 'unix) @@ -100,12 +103,12 @@ (define sub-vicinity (if (eq? (software-type) 'vms) (lambda (vic name) - (let ((L (string-length vic))) + (let ((L (- (string-length vic) 1))) (string-append (if (or (string=? vic "") - (not (char=? #\] (string-ref vic (- L 1))))) + (not (char=? #\] (string-ref vic L)))) (values vic "[") - (values (substring vic 0 (- L 1)) ".")) + (values (substring vic 0 L) ".")) name "]"))) (let ((*vicinity-suffix* (case (software-type) ((nosve) ".") @@ -321,9 +324,6 @@ (if (provided? 'trace) (print-call-stack cep)) (format cep "Warn: ~{ ~S~}~%" args)))) -;;@ define an error procedure for the library -(define slib:error error) - ;@ (define (make-exchanger obj) (lambda (rep) (let ((old obj)) (set! obj rep) old))) -- cgit v1.2.3