diff options
author | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-09-08 23:58:23 +0200 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-09-08 23:58:23 +0200 |
commit | a91adfdf373f6914bfec9901421cba0e99746b0b (patch) | |
tree | 9fc3e2e67270c619fed36dea3b41495c497775c7 /s7-slib-init.scm | |
parent | 595a8d637b81d45fe73f566b25d64cf8bca672c1 (diff) |
New upstream version 16.8
Diffstat (limited to 's7-slib-init.scm')
-rw-r--r-- | s7-slib-init.scm | 12 |
1 files changed, 6 insertions, 6 deletions
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))) |