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

(require 'char-set:union!)
(require 'char-set:copy)

;+doc
; procedure: char-set:union
; procedure: char-set:+
; arguments: a b
; signature: char-set x char-set -> char-set
;
; Returns a new char-set containing the union of A and B
;-doc

(define char-set:union
  (lambda (a b)
    (let ((union (char-set:copy a)))
      (char-set:union! union b)
      union)))

(define char-set:+ char-set:union)

; eof
