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

Sync with scsh tree

This commit is contained in:
mainzelm 2001-06-06 11:06:05 +00:00
parent 59ae9329b7
commit f91b93f16a
3 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/lib/char-package.scm
View File

@ -1,7 +1,7 @@
;;; These defs are things for characters *not* in SRFIs 13 & 14. ;;; These defs are things for characters *not* in SRFIs 13 & 14.
;;; It includes some R5RS defs that are not correct in S48 in a Latin-1 world. ;;; It includes some R5RS defs that are not correct in S48 in a Latin-1 world.
(define-interface char-set-predicates-interface (define-interface char-predicates-interface
(export (export
((char-lower-case? ; R5RS ((char-lower-case? ; R5RS
char-upper-case? ; R5RS char-upper-case? ; R5RS
@ -24,7 +24,7 @@
char-ascii?) (proc (:char) :boolean)))) char-ascii?) (proc (:char) :boolean))))
(define-structure char-set-predicates-lib char-set-predicates-interface (define-structure char-predicates-lib char-predicates-interface
(open error-package ; ERROR (open error-package ; ERROR
scsh-utilities ; DEPRECATED-PROC scsh-utilities ; DEPRECATED-PROC
char-set-lib char-set-lib

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)

4
scsh/scsh-package.scm
View File

@ -372,7 +372,7 @@
; scsh-dbm-interface ; scsh-dbm-interface
(export repl) (export repl)
awk-interface awk-interface
char-set-predicates-interface; Urk -- Some of this is R5RS! char-predicates-interface; Urk -- Some of this is R5RS!
obsolete-char-set-interface obsolete-char-set-interface
) )
@ -387,7 +387,7 @@
; dbm ; dbm
awk-package awk-package
field-reader-package field-reader-package
char-set-predicates-lib ; Urk -- Some of this is R5RS! char-predicates-lib ; Urk -- Some of this is R5RS!
dot-locking dot-locking
scheme) scheme)