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 chars->char-set ; list->char-set
ascii-range->char-set ; ucs-range->char-set (not exact) ascii-range->char-set ; ucs-range->char-set (not exact)
predicate->char-set ; char-set-filter (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-every? ; char-set-every
char-set-any? ; char-set-any
char-set-invert ; char-set-complement char-set-invert ; char-set-complement
char-set-invert! ; char-set-complement! char-set-invert! ; char-set-complement!
@ -38,13 +39,16 @@
"Change code to use CHAR-SET-FILTER.")) "Change code to use CHAR-SET-FILTER."))
(define char-set-every? (define char-set-every?
(deprecated-proc char-set-every '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 (define char-set-invert
(deprecated-proc char-set-complement '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! (define char-set-invert!
(deprecated-proc char-set-complement! '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:alphabetic char-set:letter)
(define char-set:numeric char-set:digit) (define char-set:numeric char-set:digit)