scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor fixup.

This commit is contained in:
olin-shivers 2001-06-02 17:59:37 +00:00
parent 1b0a6684c0
commit f80604aeab
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scsh/lib/cset-obsolete.scm
View File

@ -6,8 +6,9 @@
chars->char-set ; list->char-set
ascii-range->char-set ; ucs-range->char-set (not exact)
predicate->char-set ; char-set-filter (not exact)
->char-set ; no longer handles a predicate
;->char-set ; no longer handles a predicate
char-set-every? ; char-set-every
char-set-any? ; char-set-any
char-set-invert ; char-set-complement
char-set-invert! ; char-set-complement!
@ -38,13 +39,16 @@
"Change code to use CHAR-SET-FILTER."))
(define char-set-every?
(deprecated-proc char-set-every 'char-set-every?
"Use CHAR-SET-EVERYyn instead."))
"Use CHAR-SET-EVERY instead."))
(define char-set-any?
(deprecated-proc char-set-every 'char-set-any?
"Use CHAR-SET-ANY instead."))
(define char-set-invert
(deprecated-proc char-set-complement 'char-set-invert
"Use CHAR-SET-COMPLEMENTyn instead."))
"Use CHAR-SET-COMPLEMENT instead."))
(define char-set-invert!
(deprecated-proc char-set-complement! 'char-set-invert!
"Use CHAR-SET-COMPLEMENT!yn instead."))
"Use CHAR-SET-COMPLEMENT! instead."))
(define char-set:alphabetic char-set:letter)
(define char-set:numeric char-set:digit)