; -*- Scheme -*-
;
; $Id: char-set-13.scm,v 1.1 1998/03/16 07:57:51 foner Exp $

(require 'char-set::at)

;+doc
; procedure: char-set:member?
; arguments: char-set char
; signature: char-set x char -> bool
;
; Returns #t if CHAR is in CHAR-SET
;-doc

(define char-set:member?
  (lambda (s c)
    (char-set::at s (+ 1 (char->integer c)))))

; eof
