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

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

(require 'char-set:size)
(require 'char-set::size!)

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

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

(define char-set::1-size!
  (lambda (s)
    (char-set::size! s (- (char-set:size s) 1))))

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

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

(define char-set::1+size!
  (lambda (s)
    (char-set::size! s (+ (char-set:size s) 1))))

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

; eof
