need a little scheme help

Subject: need a little scheme help
From: Bas Peters <bpeters@xxxxxx>
Date: Mon, 12 Oct 1998 16:55:25 +0200
I have this piece of code:

(define (*extent*)
  (let ((x
	 (data (select-elements (descendants (if (equal? (gi) "MRCB300")
					    (ancestor "MRCB300")))
     (if (string=?
        (substring x (- (string-length x) 1) (string-length x)) ";")
        (substring x 0 (- (string-length x) 1))x)

It removes the last character if the last character is a semi colon. I
would like to add a few OR statements, like this:

if ... ";" OR ":" OR "."

How can this been done within the code above?

May be I should order a usefull Scheme book.

Thanks to any help,


Bas Peters
IDC Publishers

 DSSSList info and archive:

Current Thread