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

; procedure: char-set::at
; arguments: char-set position
; signature: char-set x integer -> bool
;
; Returns #t/#f indicating whether there is a character at POSITION in
; the CHAR-SET

(define char-set::at vector-ref)

;------------
;exports char-set::at

; eof
