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

fix for new char-lib (I hope at least)

This commit is contained in:
mainzelm 2001-04-29 18:57:15 +00:00
parent f3c47fad2e
commit 2ff53cca7d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
stringhax.scm
View File

@ -60,7 +60,7 @@
(lp (- i 1) (- j 1))))))))
(define skip-whitespace
(let ((non-whitespace (char-set-invert char-set:whitespace)))
(let ((non-whitespace (char-set-complement char-set:whitespace)))
(lambda (s) (char-set-index s non-whitespace))))
; Why is this so complicated?