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

;+doc
; procedure: char-set?
; arguments: obj
; signature: forall a => a -> bool
;
; Returns #t if the object is a CHAR-SET
;-doc

(define char-set? vector?)

; This is cheap and cheerful definition at the moment

; eof
