From 2ff53cca7d818b5e0827ef9efe2624492c8e132f Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Sun, 29 Apr 2001 18:57:15 +0000
Subject: [PATCH] fix for new char-lib (I hope at least)

---
 stringhax.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/stringhax.scm b/stringhax.scm
index ba4b78e..30b5d59 100644
--- a/stringhax.scm
+++ b/stringhax.scm
@@ -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?