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

;------------

;+doc
; procedure: char-set:size
; arguments: char-set
; signature: char-set -> int
;
; Returns the number of characters in CHAR-SET
;-doc

(define char-set:size (lambda (s) (vector-ref s 0)))

;------------

; procedure: char-set::size!
; arguments: char-set size
; signature: char-set x int -> unspecified

(define char-set::size! (lambda (s c) (vector-set! s 0 c)))

;-------------
;exports char-set::size!

; eof
